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A Microsoft tem 120 programas em fitas e disquetes à sua disposição, 
_ _São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

_se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, Appleüe compatíveis. E todos com a mesma qualidade - 

dos 100.000 programas já vendidos em todo o Brasil: - 

“Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000- 
~S. Paulo-SP). Você encontrará os mejhores programas da sua vida.. 






















Num espaço de 1.200 metros qua¬ 
drados, 54 expositores deram uma 
amostra significativa de como está a 
área de informática no Brasil. O IV En¬ 
contro Brasileiro de Microinformática, o 
Micro-Festival/85, realizado no mês de 
março no Palácio das Convenções do 
Anhembi, foi organizado pela Guazzelli 
Associados, com patrocínio da Secreta¬ 
ria Especial de Informática — SEI e da 
SUCESU — Sociedade dos Usuários de 
Computadores e Equipamentos Subsi¬ 
diários. 

Houve vários lançamentos em mi¬ 
crocomputadores comerciais e pessoais, 
periféricos, acessórios e software, mas a 
atração estava no lançamento dos mi¬ 
cros 16 bits compatíveis com o PC da 
IBM. A Cobra apresentou seu micro 
480; a SID, o micro 8005 multi-usuário, 
que suporta até cinco terminais e usa 
disco Winchester e sistema operacional 
Sinix; e mais quatro empresas apresen¬ 
taram seus 16 bits compatíveis com o 
PC. 

Um destaque foi a apresentação do 
MC-1000, terceiro microcomputador da 
CCE, que há três anos investe no merca¬ 
do de micros. O MC-1000 possui CPU 
Z-80 a de 8 bits, duas saídas de vídeo 
incluídas na CPU, 22K de RAM expan¬ 
síveis a 70K, efeitos sonoros e cor. Está 
previsto para breve a aceitação de até 
dois diskdrives. 

A CCE e a Microdigital foram os es- 
tandes mais visitados pelo público mais 


16 BITS É ATRAÇÃO 
NO MICRO-FESTIVAL 


So/ange Aparecida Menezes 


jovem. Isso porque os videogames e jo¬ 
gos eletrônicos executados pelos mi¬ 
cros continuam sendo as maiores atra¬ 
ções para os que não penetraram com¬ 
pletamente no campo de informática. 

Outro estande muito concorrido foi 
o da Compushop, freqüentado pelos 
mais entendidos em informática. Nele 
estava sendo apresentado o Harvard- 
PC, microcomputador de 16 bits compa¬ 
tível com o IBM-PC. Ele é considerado 
um micro revolucionário, pela empresa, 
pelo fato de permitir o back-up numa 
unidade de fita de meia altura, com ca¬ 
pacidade de 10 Megabytes no mesmo 
gabinete. Mas não é só isso. O Harvard, 
fabricado pela Digicon, possui micropro¬ 
cessador 8088 totalmente compatível 
com o PC; 256K de memória RAM ex¬ 
pansível até 1 Mbyte, monitor de vídeo 
alta-resolução padrão RGB, unidade de 


disco flexível slim 5.1/4 e disco rígido 
slim tipo Winchester. 

No setor de software, o destaque 
foi o Super Cale 3 , da Compucenter. Um 
programa integrado de planilha eletrô¬ 
nica, gráficos e gerenciamento de da¬ 
dos, indicado para resolver problemas 
financeiros, comerciais e matemáticos 
com rapidez e segurança. O Super Cale 3 
é usado em equipamentos compatíveis 
com o IBM-PC, a planilha possui 127 co¬ 
lunas e 9999 linhas de capacidade teóri¬ 
ca e 256K de memória. Além disso, o 
sistema é totalmente traduzido para o 
português. 

O Micro-Festival/85 se estendeu 
por quatro dias e teve ainda 25 palestras, 
algumas delas destinadas à apresenta¬ 
ção de softwares, como o Lotus 1, 2, 3, 
lançado no Brasil pela Sacco Computer. 


84: ano de crescimento para Novadata 


Operando no mercado de mini e superminicomputa- 
dores há aproximadamente três anos, a Novadata vem de¬ 
senvolvendo um programa, desde novembro do ano passa¬ 
do, de aluguel de máquinas com o intuito de possibilitar 
acesso aos seus equipamentos, a um maior número de 
usuários. O programa prevê opção de compra pelos usuá¬ 
rios em potencial e foi adotado devido ao alto preço das 
máquinas (os microcomputadores têm hoje um preço em 
torno de quatro milhões e setenta mil ORTNs), permitindo 
aos usuários, segundo representantes da empresa, avalia¬ 
ção e exploração dos minis sem maiores compromissos. 


A empresa destacou-se em 83, conforme pesquisa pu¬ 
blicada em 84 pela SEI — Secretaria Especial de Informá¬ 
tica, pelo seu crescimento da ordem de 60%, conside¬ 
rado o maior do setor. 

Conforme afirmou Mauro Farias Dutra, diretor supe¬ 
rintendente, a Novadata fechou seu ano fiscal, referente a 
84, com um lucro de 500 milhões de cruzeiros e atingiu 
faturamento bruto de oito bilhões e 500 milhões, com in¬ 
gresso de recursos de um bilhão e 600 milhões captados 
entre os acionistas e na incorporação de lucros e correção 
monetária do capital. A.L.A. 
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Ciclo de Palestras anima 
o Micro-Festival/85 


So/ange Aparecida Menezes 


Juntamente com as exposições 
houve um ciclo de palestras que mere¬ 
ceu grande atenção do público do Mi¬ 
cro-Festival/85. Os temas apresentados 
foram: A microinformática no Brasil; In¬ 
trodução à microinformática; Automa¬ 
ção de escritórios; Oportunidades pro¬ 
fissionais; A linguagem C, entre outros. 

Mas o centro das atenções foi a 
apresentação do professor João Carlos 
Di Gênio, diretor-presidente das Facul¬ 
dades Objetivo, que falou sobre o micro¬ 
computador no ensino. Muitas pessoas 
não participaram da palestra pela falta 
de espaço no auditório, mas o interesse 
dos presentes provou que a informática 
no ensino público e privado é uma preo¬ 
cupação geral. 

As escolas Objetivo contam hoje 
com mais de 700 micros (CP-300, CP- 
500, Unitron, TRS-80 e Apple) sendo 
utilizados desde a pré-escola até a uni¬ 
versidade. "No primeiro colegial o aluno 
aprende a linguagem LOGO como disci¬ 
plina obrigatória, com uma hora de aula 
semanal", explicou Almir Brandão, tam¬ 
bém do Objetivo. Além disso, há tam¬ 
bém treinamento para os professores 
que, em sala de aula, manipulam o apa¬ 
relho e os alunos acompanham suas ex¬ 
plicações através de vários monitores 
espalhados pela sala. 

O Objetivo espera contar, em bre¬ 
ve, com os serviços de videotexto da 
Telesp e com um software integrado 
com uma rádio FM, onde seus alunos 
poderão estudar em casa, usando um 
microcomputador doméstico. 

Outra novidade foi o seminário "O 
microcomputador, o profissional liberal 
e a pequena empresa", apresentado por 
Marcos Geribelo, diretor da Geribelo En¬ 
genharia. Não foi um seminário técnico 
dirigido a principiantes, mas o depoi¬ 
mento de um profissional liberal que em¬ 
pregou o computador para resolver seus 
problemas diários. 

Engenheiro formado pela Politécni¬ 
ca de São Paulo, Marcos Geribelo nun¬ 
ca tinha tido contato com computado¬ 
res antes de abrir, há três anos, sua em¬ 
presa, que atua no ramo de construção 
civil e consultoria. "Sônti necessidade 
de um instrumento de trabalho rápido 
quando trabalhava numa grande empre¬ 
sa", conta ele, "quando passei a traba¬ 
lhar independentemente, surgiu a idéia 


de instalar um micro para oferecer um 
serviço melhor e mais rápido aos meus 
clientes". 

Na Geribelo Engenharia todos os 
funcionários operam no microcomputa¬ 
dor. "O computador não tem dono" dis¬ 
se ele, "todos os funcionários devem ter 
acesso ao equipamento". 

Para os profissionais liberais pre¬ 
sentes, Geribelo aconselhou a compra 
de um equipamento com a maior flexibi¬ 
lidade possível e a dispensa de qualquer 
uso de linguagem. "Quem entende do 
seu negócio é você e não um analista, 
portanto, você pode desenvolver seus 
próprios programas", disse. 

No seminário sobre Processadores 
de texto na língua portuguesa, Eduardo 
Carvalho, gerente de suporte técnico da 
Compucenter e autor de um projeto pa¬ 
ra editores de texto na língua portugue¬ 
sa, levantou a questão "se haverá espa¬ 
ço para a máquina de escrever no escri¬ 


tório automatizado". A conclusão foi 
positiva, mas apenas para remessa de 
pequenas correspondências. 

Numa pesquisa realizada pela IBM, 
constatou-se que o uso de um processa¬ 
dor de textos reduz o tempo e os gas¬ 
tos da empresa em 15%. Além desses 
benefícios, ele facilita a correção e alte¬ 
ração do texto, produz uma cópia de 
melhor qualidade, possibilita a experi¬ 
mentação, padroniza o trabalho e dá 
maior produtividade. 

No encerramento do ciclo de pales¬ 
tras, Antonio Carlos Silveira, gerente da 
Abril Cultural, falou sobre as tendências 
de evolução dos microcomputadores e 
salientou o sucesso mundial do IBM-PC. 
Quanto ao contrabando de equipamen¬ 
tos, e a pirataria. Silveira foi taxativo: 
"esse problema só será resolvido quan¬ 
do o preço de mercado e a qualidade do 
programa forem equilibrados com a 
oferta clandestina". 


Informática para leigos 
e iniciantes 


Os principiantes e leigos em infor¬ 
mática têm agora um núcleo para desen¬ 
volverem seus conhecimentos. A Socie¬ 
dade dos Usuários de Computadores e 
Equipamentos Subsidiários — SUCE¬ 
SU, que completará 20 anos de ativida¬ 
des em 1986, criou o "Sucesu Micro- 
Clube" para oferecer oportunidade às 
pessoas que se interessam pela área. 

Para isso foi criada uma infra-estru¬ 
tura, com equipamentos de diversos fa¬ 
bricantes e instrutores para dar uma vi¬ 
são geral sobre informática ao novo 
usuário. Semanalmente serão realizadas 
reuniões, palestras e debates, de forma 
que os sócios possam trocar informa¬ 
ções, esclarecer dúvidas e até decidir o 
tipo de equipamento mais adequado pa¬ 
ra suas necessidades. 

Os usuários terão uma central per¬ 
manente, onde poderão usar os equipa¬ 
mentos independente dos horários de 
reuniões. Além da prática, os sócios 
contarão com base teórica formada de 
publicações especializadas e documen¬ 
tos que serão preparados pela Sucesu. 


Para se associar ao 'Sucesu Micro 
Clube' só é necessário ser pessoa física: 
profissionais liberais, usuários, estu¬ 
dantes, etc. — e não precisa possuir 
computador. A taxa de inscrição é de 
meia ORTN (baseado na ORTN de ja¬ 
neiro para inscrições feitas até junho e 
baseado na ORTN de julho para inscri¬ 
ções feitas no segundo semestre). "O 
volume de solicitações tem sido muito 
grande", informa Celso Furiani, diretor 
da Sucesu, que não soube precisar o 
número de novos sócios que se inscre¬ 
veram no Micro-Festival/85, mas garan¬ 
te que "chegaremos a dois mil associa¬ 
dos a curto prazo". 

Aos interessados no "Sucesu-Mi- 
cro-Clube", o endereço da Sucesu em 
São Paulo é rua Tabapuã, 627 — 1? an¬ 
dar; telefone 852-2144. E para os inician¬ 
tes, Celso Furiani recomenda: "entre no 
mundo da microinformática através do 
Micro-Clube. É o caminho mais rápido e 
econômico para você se capacitar nesse 
novo campo". 
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Programação de cursos 
e seminários 


Maio 

0 Micro e suas Aplicações — 6 a 
9/5 — Compushop — São Paulo — 
Infs.: (011) 815.0099/852.3360. 

Redes de Teleprocessamento/ 
Conceitos e Aplicações — 15 a 17/5 

— Servimec — São Paulo — Infs.: (011) 
222.1511. 

Robótica — Automação — Con 
trole de Processos — CAD/CAM — 16/ 
17/5 — Associação Brasileira de Admi¬ 
nistração Consumo Energia — São Pau¬ 
lo - Infs.: (011)285.2490. 

dBase Básico — 20 a 23/5 — Com¬ 
pushop — São Paulo. Infs.: (acima). 

Introdução à Informática e Micro 
computadores — 22/5 — Instituto de 
Tecnologia ORT — Rio de Janeiro — 
Infs.: (021)286.7842. 

Planilhas Eletrônicas — Idem aci¬ 
ma. 

Básico de Operação — 25/5 — 
ADP Systems — São Paulo — Infs.: 
(011)223.4647. 

Automação Comercial — 27/31/5 

— Grupo Advancing — Porto Alegre — 
Infs.: (0512) 26.8242. 

COBOL IBM - 27/5 - São Paulo 

— Idem acima. 

Operação e Programação BASIC I 

— 28/5 — Mikro Informática — Minas 
Gerais - Infs.: (031) 222.3035/201. 
9754. 

A Segurança Necessária em PD/ 
Criptografia — 27 e 28/5' — São Paulo 

— Servimec — Infs.: (Acima). 

Micro Mulher — 28/5 — São Paulo 

— Servimec — Infs.: (Acima). 

Lotus 123 - 28 e 29/5 - São 
Paulo — Compushop — Infs.: (Acima). 

O Método Warnier de Construção 
de Programas — 29 a 31 /5 — São Paulo 

— Servimec — Infs.: (Acima). 

Eletrônica Digital I — Metasoft — 
Rio de Janeiro — Infs.: (021) 220-1989. 

BASIC/ - São Paulo - SENAC - 
Infs.: (011)255.0066. 

Junho 

Automação de Escritórios — 3 a 7/ 
6 — Advancing — Porto Alegre — Infs.: 
(0512) 26.8246. 

Análise de Sistemas — São Paulo 

— ADP Systems — Infs.: (011) 223. 
4647. 

Exposoft/85. 

Banco de Dados — 3 a 5/6 — São 
Paulo — Servimec — Infs.: (Acima). 
Processador de Textos: Wordstar 


Micromática apresenta 
novos produtos 


Entre os novos lançamentos da Mi¬ 
cromática Computadores e Sistemas es¬ 
tá o módulo de Orçamento de Obra diri¬ 
gido às empresas do setor de constru¬ 
ção. Ao preço de 150 ORTNs, as empre¬ 
sas podem adquirir este módulo que 
apresenta relatórios dos serviços das 
obras, com ou sem BDI (margem de lu¬ 
cro), suas quantidades, preços unitários 
e valor total, fornecendo simultanea¬ 
mente as mesmas informações a preços 
atuais ou projetados para recursos mate¬ 
riais, mão-de-obra e equipamentos que 
compõem esses serviços. 

Este módulo ó compatível com 
qualquer equipamento com CPM 

Além dos serviços já citados estão 
incluídos nesse módulo: composições 
de serviços, tabela de preços, índices 
econômicos projetados para até dois 
anos e relação geral dos serviços e re¬ 


cursos. Além disso, a Micromática ofe¬ 
rece outros módulos e sistemas que po¬ 
dem ser interligados entre sí. 

Área de Recursos Humanos 

Na área de recursos humanos, a Mi¬ 
cromática lançou um sistema, o Memó¬ 
ria, direcionado para o recrutamento e 
seleção de pessoal. Ele possibilita con¬ 
sultar, em tela ou em relatórios, infor¬ 
mações sobre candidatos a emprego, 
cargos a serem preenchidos, normas ad¬ 
ministrativas para recrutamento, seleção 
e contratação de pessoal e sobre funcio¬ 
nários da empresa. 

Ao preço de 250 ORTN, dividido 
por módulos, o Memória também emite 
cartas personalizadas e etiquetas de en¬ 
dereçamento. 

O sistema operacional Memória é 
compatível com microcomputadores 
das linhas Apple, Itautec, Cobra, Uni- 
tron, IBMPC, de 8 e 16 bits. S.A.M. 


Apple nacional com as qualidades 
do americano 


O micro Appletronic 6502 fabricado pela Appletronic — Computadores e Siste¬ 
mas — tem mantido as mesmas características do micro americano. A empresa, que 
antes de optar pela fabricação do Apple dedicava-se a manutenção dos Apple II, 
Apple II plus e III, optou pela manutenção da originalidade e qualidade do equiça- 
mento e utilização do mesmo material utilizado na fabricação do Apple original. 

O Appletronic 6502 pode ser acoplado a diversos periféricos, entre estes, uni¬ 
dades de disco flexível 5 1/4" ou 8", máquinas de escrever eletrônica, plotters para o 
traçado de plantas e desenhos simples ou coloridos e modens para comunicação com 
outros micros. 

Entre as aplicações específicas do micro, os responsáveis pelo seu desenvolvi¬ 
mento no Brasil destacam: simulação de um equipamento tipo Telex, utilização em 
controle de processos industriais através de interfaces tipo IEE 488, entre outras. 

O micro está sendo comercializado atualmente ao preço de 120 ÓRTNs. A.L.A. 


— 10/6 — Rio de Janeiro — Instituto de 
Tecnologia ORT — Infs.: (021) 286. 
7842. 

Ligação Micro Mainframe — 10 e 
11/6 — São Paulo — Servimec — Inf.: 
(Acima). 

Básico de Programação — 10/6 — 
São Paulo — ADP Systems — Infs.: 
(Acima). 

Banco de Dados (dBase H) — 13/6 

— Instituto de Tecnologia ORT — Rio 
de Janeiro — Infs.: (Acima). 


Interfaces e Periféricos para Micro 
computadores — 20 e 21/6 — São Pau¬ 
lo — Ass. Bras. Adm. Energia — Infs.: 
(Acima). 

Centro de Informações e Transfe 
rência de tecnologia aos usuários — 19 a 
21/6 — São Paulo — Compucenter — 
Infs.: (011)255.5988. 

Planejamento Estratégico e Meto 
do/ogias em AE — 24 e 25/6 — São 
Paulo — 31 Informática — Infs.: (011) 
521.9509. 
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Novo horizonte para 
as pequenas e médias empresas 


Organização e planejamento foram 
as palavras de ordem no seminário "A 
Informática e as pequenas e médias Em¬ 
presas", realizado no dia 14 de março, 
no Hotel Transamérica, em São Paulo. 
Com a participação de quase 200 em¬ 
presários, o seminário transcorreu du¬ 
rante todo o dia e teve a presença de fi¬ 
guras notáveis como Arnaldo Niskier, di¬ 
retor da Bloch Educação; Guilherme 
Afif Domingos, presidente da Associa¬ 
ção Comercial de São Paulo e Sérgio 
Araújo, presidente da Andei — Associa¬ 
ção Nacional dos Dirigentes e Executi¬ 
vos de Informática, todos patrocinado¬ 
res e organizadores. 

O seminário, dividido em cinco 
apresentações, foi ministrado pelos exe¬ 
cutivos Lívio Antonio Giosa, diretor da 
Polidata; Rafael Ângelo Abud, diretor da 
Gaipe — Grupo de Apoio à Informática 
para a Pequena e Média Empresa; Mar¬ 
co Antonio Laurindo, diretor da Infor- 
market Consultoria; Walter Lerner, dire¬ 
tor da Lerner & Associados e Ernesto 
Haberkorn, diretor da Siga — Sistemas 
eda Microsiga. 

A Informática na 
pequena e média empresa 

O objetivo deste seminário foi situar 
os empresários em relação ao que a in¬ 
formática pode oferecer às suas empre¬ 
sas e ajudá-los no processo de decisão. 
O que são hardware e software, o apare¬ 
cimento da cibernética; o surgimento da 
necessidade do uso do computador pa¬ 
ra a expansão da economia da empresa 
foram alguns pontos básicos na primeira 


parte do seminário, onde empresários 
que estavam tomando contato com a 
área pela primeira vez puderam se fami¬ 
liarizar com a linguagem de computa¬ 
ção. 

Organização x implantação 

"Se o empresário não se preocupar 
com a reestruturação da empresa, será 
inútil a aplicação do computador", afir¬ 
mou Lívio Giosa. "Para a introdução do 
micro é necessário definir a cultura da 
empresa, isto é, qual o ambiente interno 
existente, para que o computador possa 
ser introduzido e venha a facilitar ou não 
o seu funcionamento". 

Essa era uma idéia compartilhada 
por quase todos os conferencistas. Se¬ 
gundo eles, a organização e o planeja¬ 
mento da empresa são fatores primor¬ 
diais para o sucesso da implantação do 
computador. "A motivação para a infor¬ 
mática é o primeiro passo", explicou Ra¬ 
fael Abud. "Antes de pensar em infor¬ 
mática deve-se ter uma estrutura. Antes 
de tudo, tem que ser observado o qua¬ 
dro de recursos humanos e fazer uma 
adaptação ao novo processo. Quando o 
indivíduo é valorizado no processo, ele é 
motivado para produzir mais", comple¬ 
mentou. 

Mas existem aqueles empresários 
tradicionais e resistentes, que não apro¬ 
vam a introdução do computador em 
suas empresas. "A automação será apli¬ 
cada pelo seu sucessor", exemplificou 
Abud, "geralmente seu filho, que atual¬ 
mente está em contato com o computa¬ 
dor na escola". 


Os recursos e suas aplicações 

Para os empresários que desejam 
implantar o microcomputador em suas 
empresas, Marco Laurindo ensinou os 
primeiros passos: "para chegar ao equi¬ 
pamento adequado deve-se fazer uma 
prévia do que se quer colocar no micro. 
Depois, procurar um bom profissional 
para saber qual o equipamento mais 
adequado; saber o significado de toda 
terminologia e procurar amigos possui¬ 
dores de micros para trocar informa¬ 
ções". Além destes fatores há também 
os softwares e periféricos. 

Laurindo complementou afirmandd 
que "o implante de um computador é 
resultado do planejamento e organiza¬ 
ção do setor administrativo da empresa. 
O custo da implantação é elevado, mas 
os resultados obtidos a médio prazo é 
bem grande". Essa idéia foi comparti¬ 
lhada por Walter Lerner. Para ele, mais 
de um milhão de empresas estão des¬ 
preparadas para a implantação do com¬ 
putador. "O problema da empresa está 
vinculado à forma como ela está sendo 
administrada", disse ele. 

Outro fator salientado pelos confe¬ 
rencistas foi quanto a automação dos 
departamentos. "Deve-se automatizar 
um de cada vez", explicou Laurindo, "e 
se começar sempre pelo mais fácil, pa¬ 
ra não tumultuar", concluiu. S.A.M. 
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= == = =^ Sempre o melhor 
MtóH programa para você 



TELECOMUNICAÇÕES 

• Programas para Projeto 
Cirandâo 

• Programas para Video¬ 
texto da Telesp 

• Placas RS-232 da 

Arias Microcomunicações 
para TRS-80 e Apple 

• Modens 


SOFTWARE 


O maior acervo de prog ramas 
do Brasil que você pode: 
testar, usar, administrar, 
programar, desenhar e jo¬ 
gar livremente. 


Disponíveis para as linhas: 
Apple, TRS-80 e Sinclair 


Av. Brigadeiro Faria Lima, 1390 

8 o And. Cj. 82 Tels.: 10111 813 6407 - 210 1251 

01452 - J. Paulistano - São Paulo - SP 


I HARDWARE 

i 

i 

i 

i 

i 

SUPRIMENTOS 
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LIVROS 


, • CPlTs das linhas: 
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i 

i 

• Formulários contínuos 

i 
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• Microproces. Z80 e 6502 


i Apple, TRS-80 e Sinclair 
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• Cursos de Basic 


i • Interfaces para: 
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• Diskettes 
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• Programação estruturada 


1 Disco, Impressoras, CP/M, 
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• Linguagens Basic, Cobol, 


80 colunas e Expansão de 
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• Etiquetas 
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memória 
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• Circuitos Eletrônicos 


( • Drives para vários modelos 
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• Jogos Inteligentes 


( • Monitores e impressoras 
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• Fitas para impressoras 
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• Revistas 
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EDITORIAL 


A nossa vida, a cada dia está cada vez 
mais, sendo determinada pelos computado¬ 
res. É o banco que mantêm seu cadastro de 
cliente, é o microcomputador na sala de au¬ 
la, é o videogame em sua sala de estar e é até 
a bomba de gasolina que verifica quantos li¬ 
tros e quantos cruzeiros você vai gastar. 

Você já parou para pensar que um nú¬ 
mero grande de informações a seu respeito 
está nas mãos de profissionais que manipu¬ 
lam dados em computadores? Ja se pergun¬ 
tou por que você tem recebido, pelo correio, 
malas-diretas de firmas que você nunca ou¬ 
viu falar? 

Dados “confidenciais” a seu respeito 
circulam como mercadorias entre empresas 
que processam dados, muitos deles forneci¬ 
dos por você mesmo e outros conseguidos por 
outras vias. 

Agora uma coisa para você parar e pen¬ 
sar: você mesmo tem acesso a estas informa¬ 
ções a seu próprio respeito? Experimente 
conseguir saber porque seu cadastro não foi 
aprovado-numa determinada instituição fi¬ 
nanceira. 

Existe um outro profissional para quem 
damos informações confidenciais e confia¬ 
mos nossas próprias vidas. É o médico. Isso 
nos parece muito natural, embora erros mé¬ 
dicos sejam cometidos. Existe para nós uma 
certeza de que, pelo menos, há um código de 
ética entre eles, que determina o que podem 
ou não fazer. 


V 


Este código tem mais de dois mil anos e 
foi criado por Hipócrates, o pai de duas ciên¬ 
cias: a Medicina e a Ética Profissional. 

Não se trata aqui de fazer uma apologia 
da medicina, mas chamar a sua atenção para 
um problema que não pensamos, por como¬ 
dismo ou até ignorância: existe uma Ética 
Profissional no uso do computador? 

Como podemos garantir que os dados 
que fornecemos não serão vendidos ou até 
roubados por pessoas inescrupulosas? 

E o que falar do software e da pirata¬ 
ria? 

Como o profissional de informática po¬ 
derá enfrentar estas condições sem algo que, 
vindo de sua própria classe, o oriente sobre o 
que ele pode ou não pode fazer? 

A Sociedade como um todo necessita es¬ 
tar segura de que uma das maiores maravi¬ 
lhas que ela mesma criou se volte contra ela, 
não de uma forma Frankeinsteniana, mas 
pelos próprios homens que as manipulam. 
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CARTAS 



de seus colegas. Seu endereço já foi pu - endereços destas funções no TK 2000. 
Micro na Educação blicado na seção Clube de Usuários da Desde já agradeço a colaboração. 

revista 19, mas, de forma a atender mais 


Trabalho em Educação e o uso da 
informática vem ganhando mais e mais 
espaço, tanto que o próprio secretário 
da Educação já formou um comitê para 
aprofundar o assunto para a possível im¬ 
plantação do computador no setor edu¬ 
cacional. 

Como professor, adquiri recente¬ 
mente um TK 85 e, de forma primária, 
tenho feito programas na área de Geo¬ 
grafia (mapas, gráficos), da qual sou 
professor. 

Gostaria de contar com o apoio de 
colegas que já elaboraram programas 
nesse setor e, se possível, gostaria de 
trocar programas e idéias como fim de 
aperfeiçoamento. 

Como sugestão, seria interessante 
que outros professores fizessem o mes¬ 
mo. 

Avelino de Oliveira 
Vargem Grande Paulista-SP 


Caro Avelino , 

E bastante oportuna sua carta, visto 
que nossa revista número 19 versou sobre 
o tema O micro na Educação ". 

Nós, através da seção didática, te¬ 
mos publicado regularmente programas 
destinados à área educacional. Este es¬ 
paço está aberto a colaborações e gosta¬ 
ríamos de contar com seus programas e 


uma vez seu pedido, o republicamos 
aqui: 

Avelino de Oliveira 

Rua C, n? 11 —Jardim Marialva 

06730 Vargem Grande Paulista-SP 

Quanto aos outros professores, seria 
bom que os mesmos mandassem seus no¬ 
mes e endereços para serem cadastrados 
no Clube de Usuários de forma a pode¬ 
rem ter um contato mais efetivo entre 
seus colegas de matérias e programação, 
independente da máquina utilizada. 


TK 2000 x Apple 

Em primeiro lugar, gostaria de para¬ 
benizá-los pela excelente revista que é a 
Microhobby, principalmente para usuá¬ 
rios da família TK. 0 caminho está se 
abrindo cada vez mais para o TK 2000 e 
isso é bom, pois é difícil se encontrar li¬ 
teratura para ele. 

Sou possuidor de um TK 2000 e ob¬ 
servando o Apêndice E, ''Palavras Re¬ 
servadas" do Manual de Operações, 
descobri a função PDL(X). Procurei, en¬ 
tão no manual e não encontrei nada a 
respeito. Peço, assim, uma explicação 
mais detalhada deste comando. 

Além disso, lendo o artigo "Intro¬ 
duzindo o Ampersand", vi muitos ende¬ 
reços que executam determinadas fun¬ 
ções (como FF69, FD1B, BI, DEC9, en¬ 
tre outros). Gostaria de saber quais os 


Alexandre Colaro 
São Caetano-SP 


Caro Alexandre , 

Agradecemos seus elogios referentes 
à nossa atuação editorial, em relação ao 
TK 2000. Quanto às suas dúvidas, aqui 
estão as respostas: 

a) A função PDL(X) lê a posição do 
paddle ou joystick analógico. Para poder 
usá-la é necessário uma interface especial 
que ainda não foi desenvolvida. 

b) Os endereços que nos pede são: 


Apple 

TK 2000 

FD1B 

FDOF 

FF69 

FF61 

BI 

BI 

DEC9 

CEEO ou D1E8 


A Volta do Barão Vermelho 

Sou possuidor de um TK 2000 e fi¬ 
quei feliz em ver uma revista com uma 
coluna destinada a este micro. Com res¬ 
peito a esta coluna, venho pedir alguns 
esclarecimentos quanto ao programa "A 
Volta do Barão Vermelho", publicado na 
Microhobby número 16, no qual estou 
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com dificuldades em movimentá-lo atra¬ 
vés das setas, pois, no artigo consta que 
as linhas que o comandam são as de nú¬ 
mero 2040 e 2045, sendo que esta últi¬ 
ma não consta no programa. Também o 
som da explosão não se faz ouvir. Teria 
alguma instrução para este fim? 

Robson Abrahão dos Santos 
Niterói-RJ 


Caro Robson, 

Agradecemos sua preferência por 
nossa revista e a confiança que nela de¬ 
posita. 

Quanto a suas dúvidas, informamos 

que: 

1) Alinha 2045 ê na realidade 2050. 

2) A dificuldade em manobrar o 
avião é decorrente das seguintes caracte¬ 
rísticas do jogo: 

a) O avião do comandante Brow 
(em preto na tela) tem movimentos alea¬ 
tórios. 

b) O movimento deste avião se 
soma ao do Barão (cuja cabine aparece 
em vermelho na tela), que é pilotado pe¬ 
lo jogador. Como o avião do Barão serve 
como referencial, o jogador vê o avião ini¬ 
migo se movimentando de acordo com a 
soma dos dois movimentos, como se o seu 
avião estivesse parado. 

c) Como resultado, o movimento do 
joystick está aparentemente invertido. Se 
você movê-lo para a direita, o avião do 
Barão se move para a direita, mas como 
ele ê seu referencial, você verá o avião ini¬ 
migo se movimentar para a esquerda. 

3) As rotinas de explosão poderão 
ser implementadas por meio da instru¬ 
ção Sound. Consulte seu manual para 
maiores detalhes. 


TK DOS e DOS 3.3. 

Eu sou possuidor de um TK 2000 e 
queria felicitá-los pelas novas seções pa¬ 
ra este micro, que encontrou seu pri¬ 
meiro espaço na Microhobby. Mas nun¬ 
ca é demais sugerir. Eu gostaria de que o 
TK 2000 tivesse as mesmas seções que 
os TK 83/85. Gostaria que vocês des¬ 
sem ênfase ao BASIC e à linguagem de 
máquina do 6502. 

Desejaria que os senhores respon¬ 
dessem às seguintes dúvidas: 


a) Vocês pretendem criar livros pa¬ 
ra o TK 2000? 

b) Para que servem as instruções 
OPEN e CLOSE, como operam no MBA- 
SIC? 

c) Existem compiladores de lingua¬ 
gem como FORTRAN, PILOT, PAS¬ 
CAL, LOGO etc. para o TK 2000? 

d) Quais são os comandos adicio¬ 
nais que fornece o TK DOS? 

e) Quais as principais diferenças 
entre o DOS 3.3. e do TK DOS? 

f) O TK DOS vem em disquete ou 
em um drive especial, criado por algu¬ 
ma empresa? 

g) Como implementar o FLASH no 
TK 2000? 

Jorge Pablo Zapata Rivera 
Salvador-Bahia 


Caro Jorge, 

Agradecemos seus elogios e suas su¬ 
gestões. Quanto aos livros sobre o TK 
2000, informamos que no momento isso 
não esta em nossos planos. Entretanto, 
todos os lançamentos da área merecerão 
divulgação em nossas páginas, na seção 
de livros. 

As instruções OPEN e CLOSE 
abrem e fecham arquivos em disco. A 
instrução OPEN indica ao computador 
que foi aberto um arquivo em disco. Ela 
marca no disquete o início de um arquivo 
e seu nome. A instrução CLOSE fecha 
um arquivo, indicando seu final no dis¬ 
quete. Ela deve vir acompanhada do 
mesmo nome usado em LOAD. 

No momento, ainda não existem 
compiladores para outras linguagens pa¬ 
ra o TK 2000. 

O TK DOS fornece comandos de 
manipulação de arquivos. Entre eles es¬ 
tão o OPEN, o CLOSE, o CATALOG 
(fornece o nome de todos os arquivos), 
LOCK (tranca um arquivo, impedindo 
que seja apagado ou alterado), UN- 
LOCK (destranca um arquivo); etc.. 

O TK DOS e o DOS 3.3 são muito 
semelhantes, permanecendo as diferen¬ 
ças do BASIC e do mapeamento de me¬ 
mória. 

O TK DOS vem em disquete, mas 
precisa de um drive e de uma interface 
para ligá-lo ao TK 2000 I ou II. A inter¬ 
face é fornecida pela Microdigital e o dri¬ 
ve pode ser qualquer um que funcione 
com APPLE. 

O comando FLASH merecerá opor¬ 
tunamente um artigo para o TK 2000; 
aguarde. 


CLUBE 

DOS 

USUÁRIOS 


TK-85 e Compatíveis 

Marcelo Ballario Yoshida 
Av. Arthur C. Filho, 751 
11660 — Caraguatatuba — SP 
Área de interesse: contabilidade, fi- 
latélia, lazer. 

Organiza um clube de usuários de 
TK-85 em sua cidade. 

Jonas Eduardo Abboud 

Av. Dr. Cavalcanti, 884 

Fone: (011)731-4316 

13200 — Jundiaí — SP 

Área de interesse: jogos, escuta de 

emissoras de rádio em ondas curtas. 

Daniel Israel Mignone 
R. Gomes Carneiro, 51 
Ap. 104 — Ipanema 
22071 — Rio de Janeiro — RJ 
(também possuidor de TK 2000) 

Aldo Jorge Nakamura 
Av. Paulista, 854 — 12? andar 
01310- São Paulo - SP 

Marcelo Alexandre de Souza 
R. Barão da Torre, 32-B 
AP. 907 — Ipanema 
22411 — Rio de Janeiro — RJ 
(possui alta-resolução) 

Clayton Luiz Kohiyama 

R. Maria Ortiz, 516 

Bairro Campestre 

09000 — Santo André — SP 

(CP200SPEED) 

TK-2000 

Wladimir Barros de Assumpção 
R. Dr. Vasconcelos, 162 — Centro 
25800 — Três Rios — RJ 
Área de interesse: jogos, aplicativos 
para engenharia eletrônica. 

Carlos Henrique Pimentel 
R. das Goiabeiras, 547 
Bairro Jardim 

09000 — Santo André — SP 

APPLE 

Eduardo Marchiori 

R. Mariano Procópio, 58 

Fone: 63-6258 

01548- São Paulo - SP 

(APPLE II plus — possui programas 

n dicas sobre TK 85). 
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4 ? O SENTINELA 


Bernardo C. Stein 


Segurança é a palavra do momen¬ 
to. Nós, aficionados do TK, também te¬ 
mos que tê-la. 

O programa "O SENTINELA'' dá 
segurança total a seus programas em 
BASIC, não permitindo a ninguém aces¬ 
so a eles, sem que se conheça o código 
secreto de proteção. 

Suponhamos que você queira pro¬ 
teger o programa "BATE-CORAÇÃO", 


4) Entre com GOTO 9000 (evite en¬ 
trar com RUN 9000, pois isso iria apagar 
os possíveis dados do programa). 

5) Entre com os códigos da figu¬ 
ra 3. 


16 b 14 . 


, 2 b b 

15515. 


.145 

16516. 

, 

. 64 

15517, 


.254 

15515. 


, 57 

16519. 

, 

. 32 

15520. 

, 

,242 

15521, 


,205 

15522. 


. 145 

15523. 

, 

. 54 

15524. 

, 

,254 

15525. 


, 45 

15525. 

, 

, 32 

15527. 


, 242 

15525. 

, 

,201 

15522. 

8 

,205 

15530. 


, 157 

15531. 


, c. 

15532. 

8 

. 44 

15533. 

f 

, 40 

15534. 


,250 

15535. 

, 

, 45 

15b35. 

, 

, 55 

16537. 


, í i 

16535. 


,205 

15532. 


, 152 

15540:. 


*7 

15541. 


! 55 

15542. 


. 32 

15543. 

, 

, 54 

15544. 


. 120 

15545. 


, 40 

15545. 

, 

, 235 

15547, 

, 

, 125 

15545, 


. 50 

15542. 


. 32 

15550. 


. 64 

15551, 


.201 

15552, 


, 125 

15 b 5 3 , 

, 

, 125 

15554, 

• 

.125 Fig. 3 


do colega Martello. 

Para isso, você deve proceder da 
seguinte maneira: 

1) "LOAD" o programa no com¬ 
putador. 

2) Entre com uma linha 1 REM de 
41 caracteres (figura 1). 

3) Entre com as linhas do progra¬ 
ma da figura 2, deletando as linhas 9996 
e 9999 do programa original. 


6) Elimine as linhas 9000 e 9050 do 
programa, pois agora não serão mais ne¬ 
cessárias (entre 9000 e NEW UNE, 9010 
e NEW UNE e assim por diante). 

7) Entre com as linhas indicadas na 
figura 4. 


1510SPRINT P.T 

ii,5; 



aasfesãs"' 


1520 RR ND USR 

15514 

1530 CL5 


1540 GOTO 1 

Fig. 4 


8) Pronto. É só. Vejamos agora o 
resultado: 

Entre com um "GOTO 1510". 

9) Aparecerá a mensagem em le¬ 
tras invertidas "PROGRAMA PROTE¬ 
GIDO" e nada conseguirá fazer o pro¬ 
grama rodar. 

10) QUASE NADA: experimente 
entrar com os caracteres "T K" em inter¬ 
valos de mais ou menos meio segundo. 
Pronto! Proteção aberta (os caracteres 
de segurança são o "T" e o "K"). 

11) AGORA A PARTE MAIS IM¬ 
PORTANTE: Você pode alterar os ca¬ 
racteres de segurança. Vejamos como: 

12) Consulte o apêndice A do ma¬ 
nual de seu TK: lá se encontra o conjun¬ 
to de caracteres. 

13) Suponhamos que você queira 
alterar o código para "B", "S": 

14) O caractere "B" tem código 39. 

O caractere "S" tem código 56. 

15) Entre com os comandos dire¬ 
tos: 

POKE 16518,39 
POKE 16525,56 


1 RE 

IM 0000000000000000 

0 C 0 0 O 0 kl 5 


0 0 00 00 k 

500000000000 


Fig. 1 


98O 0§rüR N = 16514 T 0 15 b 54 


9018 

RRINT n ; " . , , " ; 


9828 

INPUT R 


9838 

RRINT P 


2848 

RÜKE M.R 


9858 

NEXT N 

Fig. 2 



16) Experimente: entre "GOTO 
1510" e tente rodar o programa. Você só 
conseguirá digitando "B" e depois o 
"S". 


17) Agora grave seu programa dan¬ 
do "GOTO 1500". Depois disso você 
só irá rodá-lo digitando o seu código se¬ 
creto. 


Evidentemente você pode colocar 
"O SENTINELA" em qualquer progra¬ 
ma em BASIC. Apenas tome os seguin¬ 
tes cuidados: 


a) As linhas do programa que nós 
escolhemos de 9000 a 9050 devem ser 
colocadas nas linhas não usadas no seu 
programa principal. 


b) As linhas da figura 4 devem ser 
colocadas após a instrução "SAVE 
do seu programa, para que ao se dar 
"LOAD" o mesmo vá automaticamente 
para a rotina em código de máquina 
(RAND USR 16514) e se bloqueie. 
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Anatomicro: 

A anatomia de um microcomputador 



Compreenda o funcionamento, em li¬ 
nhas gerais, de um computador à base do 
Z 80 (o seu TK 85 ou TRS 80 modelo I ou II). 


Tanios Hamzo 


O PROCESSADOR 

O gerente de todo microcomputa¬ 
dor é o processador. Daí seu nome de 
Unidade Central de Processamento — 
CPU (Central Processor Unit). 

O processador nada mais é do que 
um agrupamento de circuitos eletrôni¬ 
cos de lógica digital essencialmente sim¬ 
ples. Acumulando funções de controle e 
de lógica aritmética e sendo capaz de 
acessar dados através de endereçamen¬ 
to próprio, ele pode realizar diferentes 
atividades no microcomputador a que 
pertence. 

As operações que o processador é 
capaz de executar lhe são enviadas em 
forma de códigos binários digitais, mui¬ 
tas vezes combinadas umas com as ou¬ 
tras para formar novas instruções. O 
conjunto de instruções de um processa¬ 
dor não revela sua verdadeira versatili¬ 
dade, pois depende da forma com que 
seu software pode ser desenvolvido e 
utilizado. 

Pode ser um circuito puramente 
eletrônico, seu processamento é 
milhões de vezes mais rápido do que 
nossa concepção de rapidez: Seu "co¬ 
ração", dependendo do processador, 
pode bater a 1.000.000, 4.000.000 e até a 
6.000.000 vezes por segundo. Isto signi¬ 
fica, a grosso modo, que mesmo não 
sendo capaz de realizar grandes tarefas 
lógicas de cada vez, o processador pode 
realizar milhares de pequenas tarefas bá¬ 
sicas e obter um complexo resultado de 
processamento em um curtíssimo espa¬ 
ço de tempo. Sua velocidade é a chave 
de sua utilidade e não a complexidade 
das tarefas que pode executar. 

Um matemático, por mais medío¬ 
cre que seja, pode conceber as mais 
simples operações (como a subtração, 
por exemplo); fazer contas desde dois 
algarismos até vários números, coisa 
que um processador comum não faz. 
Além disso, a velocidade dos fluxos elé¬ 
tricos de um processador é bem menor 
do que a do nosso cérebro (a máquina 
perfeita), mas ele pode executar as ope¬ 
rações lógicas elementares mais facil¬ 
mente e com lógica pura, tornando pra¬ 
ticamente impossível a ocorrência de er¬ 
ros ou enganos de procedimento. 


O Z-80 

A CPU Z-80, mais especificamente 
o Z-80 A, é o processador que o TK 85 e 
o TRS-80 usa. Seu "clock" ou a fre- 
qüência com que seu "coração" bate, é 
de 4 MHz (4.000.000 batidas por segun¬ 
do), variando levemente de modelo para 
modelo. No software, o Z-80, como 
qualquer outro processador, não com¬ 
preende outra linguagem senão a de 
Máquina. Para fazer com que o Z-80 
compreenda o BASIC é necessário que 
haja um programa capaz de "traduzir" 
as instruções do BASIC para o Assem- 
bly. É este o trabalho da ROM, que ve¬ 
remos em outra ocasião. 

A aparência de um processador 
Z-80 é a de um grande Cl com 40 pinos, 
20 de cada lado, com funções específi¬ 
cas para controlar e ser controlado. 

Todas as atividades de um Z-80 são 
interligadas ao mundo por, basicamen¬ 
te, quatro tipos de contato. São eles: 
alimentação elétrica; barramento de en¬ 
dereços; barramento de dados e con¬ 
trole. 

Vejamos sua pinagem por partes 
semelhantes: 


A) Alimentação elétrica: 

A alimentação do Z-80 é simples, de 
uma única tensão de 5 volts bem regu¬ 
lados e estabilizados, mas tolerando pe¬ 
quenas oscilações de ruídos. Pela sua 
arquitetura física, o Z-80 tem uma boa 
imunidade a ruídos na alimentação e po¬ 
de ser abastecido por fontes não muito 
sofisticadas. Os pinos 11 e 29 corres¬ 
pondem, respectivamente, à alimenta¬ 
ção de 5 volts positivos e 0 volts (terra) 
compatível, inclusive, com fontes co¬ 
muns para Cl's de lógica TTL. 

B) Barramento de endereços: 

Com 16 bits, a barra de endereços é 
o maior barramento deste processador. 
Cada linhá de endereço leva o código A, 
seguido do número correspondente (à 
potência de 2) que controla. Assim, as 
linhas do barramento de endereço são 
indexadas com números de zero a 15, 
conforme a tabela I. 

Note que a nomenclatura corres¬ 
ponde mnemonicamente à pinagem e à 
potência de 2, o que torna mais fácil o 
manuseio e demonstra o requinte de fa¬ 
bricação. A letra "A" indica ser uma li¬ 
nha de endereço (Address) e com a 
combinação de níveis digitais entre to- 
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Tabela 1 


Linha de 
Endereço 

Grandeza 

Pino 

A 0 

20 = 1 

30 

a" 

2 1 = 2 

31 

a 2 

2 2 =4 

32 

A 3 

2 3 = 8 

33 

A 4 

2 4 = 16 

34 

A 5 

2 5 = 32 

35 

Ay 

2 6 = 64 

36 

2 7 = 128 

37 

A 8 

A 9 

2 8 = 256 

38 

2 9 = 512 

39 

2 10 = 1024 

40 

A 

A 1 ’ 

2 11 = 2048 

1 

212 = 4090 

2 

A 3 

2i3 = 8192 

3 

A 

2 14 = 16384 

4 

A,5 

2 15 = 32768 

5 


das as 16 linhas, pode-se acessar qual¬ 
quer endereço, desde zero (em binário 
= 00000000Ó0000000) até 65535 (em bi¬ 
nário = 1111111111111111). Isto signifi¬ 
ca que um Z-80 "só" pode endereçar 64 
kBytes. 

Estas 16 linhas de endereço traba¬ 
lham em paralelo e, portanto, indepen¬ 
dentemente umas das outras. Quando 
reunidas são também chamadas de 
Address Bus (barramento de endereços 
em inglês). 

A utilidade do endereçamento é 
que ele pode escolher (ou "acessar") 
outros dispositivos para serem proces¬ 
sados, através do estado lógico de cada 
linha, selecionando, assim, um determi¬ 
nado código de localização a que cha¬ 
mamos de endereço (Address). 

Determinando um endereço ao dis¬ 
positivo, que geralmente é uma RAM ou 
algum tipo de ROM, a CPU passa a ter 
acesso ao conteúdo deste endereço, 
que é fornecido sob a forma de dados 
codificados em binário. 

0 fluxo de informações no barra¬ 
mento de endereço é unidirecional, isto 
é, só "saem" informações da CPU por 
ele. 

No circuito de um computador, o 
barramento de endereços é ligado à 
RAM (para especificar em qual endere¬ 
ço deverá ser lido ou gravado um dado), 
à ROM (para especificar em qual ende¬ 
reço deverá ser lido um dado), ao tecla¬ 
do (para a identificação da função de 
cada tecla) e à barra de conexão exter¬ 
na (para a interligação de expansões de 
hardware). 

A seleção de endereços acontece 
com o surgimento de uns e zeros no 
barramento simultaneamente e por um 
pequeno espaço de tempo, suficiente 
para que o receptor da informação (ge¬ 
ralmente uma memória) o compreenda. 
C) Barramento de dados: 

De comportamento similar ao bar¬ 
ramento de endereços, o barramento de 
dados, no entanto, é bidirecional, isto é, 
tanto leva informações quanto as traz. 

São oito as linhas de dados, nume¬ 
radas de zero a 7 e identificadas pela le¬ 


tra D (de Dado ou Data), da mesma for¬ 
ma que as linhas de endereço (veja a ta¬ 
bela I). Tendo oito linhas, a Data Bus 
pode então estabelecer qualquer núme¬ 
ro entre zero e 255. 

O grupo de linhas de dados é tam¬ 
bém tratado de palavra ou byte. Assim, 
o Z-80 pode ser referido como um pro¬ 
cessador com byte de 8 bits. 

A utilidade do barramento de dados 
é transportar dados paralelamente, en¬ 
tre dispositivos do computador, entre si, 
ou entre um dispositivo e a CPU. Este 
fluxo, como já disse, é bidirecional e 
num instante pode estar levando dados 
num sentido como no outro. Este fluxo 
pode ser entre dispositivos de entrada 
(como o teclado); dispositivos de saída 
(como a saída de vídeo); RAM; ROM; e 
a barra de conexão externa. 

D) Pinos de controle 

Os 14 pinos de controle são subdi¬ 
vididos em quatro sub-grupos: Controle 
de Sistema; Controle da CPU; Controle 
de barramento; e Clock. 

Estes sub-grupos se prestam a fun¬ 
ções de controle, tanto do processador 
por via externa, como do hardware ex¬ 
terno pelo processador. Suas funções 
específicas são: 

D.1) Controle do Sistema: 

São seis os pinos para controle do 
sistem a: MREQ, IORQ, RD, WR, MT e 
RFS H. Vam os a eles: - 

MREQ: é a linha de Requisição de 
Memória (pino 19). O nível zero nesta 
linha significa que a CPU está requisi¬ 
tando determinado dispositivo (geral¬ 
mente uma memória) para ler ou gravar 
os dados no barramento de dados, no 
endereço indicado pelo barramento de 
ende reços . 

IOhO: linha de Requisição de 1/0. 
Esta linha (pino 20), quando ativada, in¬ 
dica que a CPU está fornecendo um en¬ 
dereço pelos oito primeiros bits (pelo by¬ 
te menos significativo) do barramento 
de dados, para leitura (entrada ou ln- 
put), ou para gravação (saída ou Out¬ 
put). Este sinal, em outras palavras, ha¬ 
bilita jjrna porta de entrada/saída (1/0). 

RD: Leitura (Read). Pelo pino 21, 
a CPU informa que lerá dados de um en¬ 
dereço da memória ou de um disposi¬ 
tivo. 

WR: Gravação ou escrita (Write). 
Pelo pino 22, a CPU informa que está 
enviando dados pelo barramento de da¬ 
dos para serem gravados no endereço 
especificado pelo barramento de ende¬ 
reços. 

M T: Esta linha (pino 27) informa o 
ciclo de Má quina 1. 

RFSH: Indica que as sete primeiras 
linhas do barramento de endereços (de 
A 0 até Ac) contém um endereço de re¬ 
novação (ReFreSH) para memória tipo 
RAM dinâmica (DRAM) e que o proces¬ 
so de renovação pode ser realizado. O 
sinal de refresh aparece no pino 28. 

D.2) Controle da CPU: 

As linhas de controle da CPU são 
cinco e permitem o controle da CPU por 
outros meios externos. A CPU não con¬ 
trola estas linhas, só as interpreta. São 
elas: ÍRT, ftW, HÀLT, WAIT e RESET. 


Des criçã o: 

ÍNT: Linha de Interrupção (pino 16). 
Interrompe o processamento da CPU, 
se esta não estiver executando nenhu¬ 
ma instrução e se a linha BUSRÒ o per¬ 
mitir. Toda interrupção acatada pela 
CPU implica no surgimento de um sinal 
indicativo no início da instrução se¬ 
guinte^ 

NMI: Interrupção Não Mascarada 
(pino 17). De prioridade maior do que a 
linha ÍRT, esta linha força um reinicio de 
proc essam ento. 

HALT: É a única linha de controle 
da CPU que fornece uma saída, infor¬ 
mando as ocasiões e m que a CPU exe¬ 
cutou uma instrução HALT e aguarda 
por uma instrução de interrupção. En¬ 
quanto a CPU permanece "parada", vai 
executando automaticamente uma se- 
qüência de instruções NOP, para que se 
mantenha a renovação das memórias.- 
Esta saída a contece no pino 18. 

WAIT: Espera (WAIT). Ativada, in¬ 
forma à CPU que o dispositivo em uso 
(que pode ser uma memória, um dispo¬ 
sitivo de entrada ou um dispositivo de 
saída) ainda não está pronto para uma 
transferência de dados. Desta forma, es¬ 
ta linha (pino 24) permite que um dispo¬ 
sitivo mais lento do que a CPU (como 
uma impressora, por exemplo) esteja 
sempre em sincronismo com o proces¬ 
samento, acompanhando a CPU por 
mais lento q ue seja. 

RESET: O pino 26, quando ativado, 
provoca um RESET na CPU. 

D.3) Controle de barramento: 

São duas as linhas de controle de 
barr amento: 

BUSAK: Quando em nível baixo, 
informa que o barramento de dados e o 
barramento de endereços da CPU estão 
ligados ao circuito. Quando em nível al¬ 
to, informa que os barramentos estão 
"desligados" do circuito, na condição 
de alta impedância, não podendo assim 
rece ber ou tra nsmitir dados. Pino 23. 

BUSRÒ: Requisição de barra 
(BUS). Quando ativada, causa o estado 
de alta impedância nos barramentos de 
dados e de endereços da CPU, permitin¬ 
do assim que outros dispositivos ligados 
possam usar os barramentos sem a in¬ 
terferência da CPU, que passa a se com¬ 
portar como se não estivesse ligada ao 
circuito. As outras linhas de controle as¬ 
sumem o mesmo estado de alta impe¬ 
dância. Pino 25. 

Os traços que encimam as siglas, 
significam que o pino é ativado quando 
em nível baixo. 

D.4) Clock: 

Ligado ao pino 6, a CPU necessita 
de um Clock. Pulsos de Clock são gera¬ 
dos por um circuito externo à CPU e 
temporizam os passos de processa¬ 
mento. 


UM POUCO DE HISTÓRIA 

Seguindo o rumo tecnológico do 
8080, o Z-80, também um microproces¬ 
sador de 8 bits, incorporou às vanta- 
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gens de seu antecessor mais 80 instru¬ 
ções de comando. Muitos dos circuitos 
externos que eram necessários aos pro¬ 
cessadores antigos foram incluídos den¬ 
tro do mesmo encapsulamento do pro¬ 
cessador, tornando-o muito mais versá¬ 
til e de simples montagem. 

A tecnologia usada para a confec¬ 
ção deste processador é a de canal N e 
seu suporte não é exigente, com alimen¬ 
tação simples e clock de fase única. To- 
das"as entradas e saídas são compatí¬ 
veis com a lógica TTL. 

Embora o Z-80 CPU tenha um am¬ 
plo suporte da mesma família, (como o 
Z-80 CTC (Circuito Temporizador/Con¬ 
tador), o Z-80 PIO (1/0 Paralelo), o Z-80 
DMA (Acesso Direto à Memória), o Z-80 
SIO (1/0 Serial) e sistemas de apoio), 
não é usado nenhum deles no TK 85 e 
compatíveis. 

O Z-80, embora compatível em mui¬ 
tos aspectos com 8080, não é compatí¬ 
vel pino a pino. Hoje em dia o Z-80 já foi 
superado por, pelo menos, meia dúzia 
de outras famílias de microprocessado¬ 
res, montados para tecnologias mais re¬ 
centes e operando não com 8, mas com 
16 e até 32 bits por byte. No entanto, a 


popularidade que o Z-80 ostenta ainda o 
deixará em cena por mais alguns anos (o 
que para um processador é muito tem¬ 
po). 

o SOFTWARE 

O Z-80 é capaz de executar 150 ins¬ 
truções diferentes, inclusive 78 usadas 
pelo 8080, divididas em sete grupos di¬ 
ferentes: Carga e transferência; Trans¬ 
ferência e procura de blocos; Aritméti¬ 
ca e lógica; Manipulação de bits; Cha¬ 
mada e retorno; Salto e entrada/saída. 

Ao todo, o Z-80 é capaz de reco¬ 
nhecer 696 códigos operacionais, dos 
quais 244 são também reconhecidos pe¬ 
lo 8080. 

A ZILOG, primeira empresa a fabri¬ 
car o Z-80, estabeleceu três velocidades 
de operação dos Z-80: 2 MHZ para o 
Z-80 propriamente dito; 4 MHZ para o 
Z-80 A; 6 MHZ para o Z-80 B. 

Um exemplo: 

As figuras de 2 a 6 mostram como 
podemos interligar as conexões de um 
Z-80 na construção de um micro com¬ 
putador. 



Pinos de controle de barramento CLOCK e alimentação 
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Clock* 
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* Alguns modelos usam Clock de 3,5 MHZ. 
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Traga este anúncio e ganhe um brinde na compra de 
qualquer item 


PROGRAMAS " 
APLICATIVOS PARA 
SEU MICRO 


• Orçamentos e custos de Cons- Valor 

truções Civis, para APPLE, em 
Diskete . 48 ORTN 

• Orçamentos e custos de Cons¬ 
truções Civis, para SINCLAIR, 

\ TK 85, CP 200 e outros, grava¬ 
dos em fita Cassete. 8 ORTN 

• AGRIMENSOR - Cálculo da 
Planilha Analítica, para APPLE, 

em Diskete. 12 ORTN 

Para TK 2000, em fita Cassete 10 ORTN 
Para TK 85, CP 200 e outros .. 6 ORTN 

• Cálculo de lista de preços para 
fabricantes, para SINCLAIR, 

TK 85 e similares. 6 ORTN 


• Blocos "PRINT e PLOT" para 
seu lay out em seus programas 
profissionais com 100 páginas 
de formulários, para linha SIN¬ 
CLAIR, TK 85, TK 83, CP 200, 

RINGO, etc. 

1 BLOCO.0,5 ORTN 

3 BLOCOS. 1 ORTN 

— Pagamento com pedido (despacho imediato) ou 
por reembolso com 10% de acréscimo. 

Envie seu pedido para: 

Informática Dinâmica Ltda 


Rua Minas Gerais, 56 — CEP 98900 — Santa Rosa — RS 
Telefone: (055) 512-2819 

^CONDIÇÕES ESPECIAIS PARA REVENDEDORES^ 

















































Barra de dados 



Fig.4 


Pinos de controle do sistema 



conector de expansão. 


Fig.5 



3 Só para modelos com duas 2732 EPROM. Para modelos com 
ROM de Kbytes ou para EPROM 2764, esta seleção é 
desnecessária. 

** Para versões até 16 Kbytes de RAM. Para versões com mais de 
16 Kbytes de RAM (32, 48 ou 56 Kbytes de RAM): 

AO A15 R 9- 6 
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HOBBYSHOP 


VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SÃO PAULO 


MICRO 


Service 


Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82, 83, 85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 


QUAL A INTERFACE QUE ESTA FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo - SP 


TKSOM-TKMORSE 


2 Software de alta qualidade para Micros Sinclair com 16 K 

TKSOM — coloca som no seu micro; contém 6 músicas; você pode programar suas 
músicas. 

TKMORSE — lista sua mensagem em código morse; transmite sinais sonoros de men¬ 
sagem pré-gravada; transmite sinais sonoros simultaneamente com a digitação. 

Preço até 30-06-85 Cr$ 28.000 

Envie cheque nominal para: 

MÁRCIO ACCIOLY 

Rua Dr. Saboia de Medeiros, 199-54 — Cep 04120 - São Paulo - SP 
e receba os2 Software pelo correio, sem mais nenhuma despesa. 

PREÇOS ESPECIAIS PARA REVENDEDORES. 



Transforme seu TK 85. 



O mesmo efeito dos 



monitores de vídeo. 



Fundo: preto 



Letras: brancas 



Com uma simples modificação 


no microcomputador. 

TRANSVIDEO Fone:(011)522-8100 


ETÜE Comércio de Computadores Ltda. 
WBÊM TK85 x TK2000? 

Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Pajurás, 40 — CEP: 05670. 


© ciBERTran 

SOFTWARE 


Conheça os emocionantes jogos da CIBERTRON 
como os excelentes SPACE EGGS e GRAND PRIX 
por apenas Cr$ 16.900 cada. Faça seu pedido ane¬ 
xando cheque nominal cruzado, a CIBERTRON ELE¬ 
TRÔNICA LTDA. - Caixa Postal 17.005 - CEP 
02399 - SP. 



CflTP 

FECafíLl 

IHFORM A TI C A . 




PROGRAME-SE! 

Faça como os funcionários da SABESP, BURI, KIBON e outros. Venha desvendar o 
computador da DATA RECORD INFORMÁTICA. 

COBOL - BASIC - DIGITAÇÃO 

Turmas especiais para crianças de 8 a 14 anos. (BOLSAS DE ESTUDO) 

Av. Santo Amaro, 5.450 — Tel. 543-9937 — Brooklin — (em frente ao E.C. Banespa). 


SUPRIMENTOS P/INFORMÁTICA 


«FORMULÁRIOS 
*DISKETES * FITAS IMPRESSORAS 
* PA PE L XEROGRÁFICO 
^SUPRIMENTOS P/TELEX E ESCRITÓRIO 

INF0RMAX -PRODUTOS P/ INFORMÁTICA LTDA. 

R.Domingos de Morais,254-6? and. Cj.602-A 
Tel. (011) 570.7570 


SAP JOSÉ DOS CAMPOS 


E«TRONIC - COMPONENTES E SISTEMAS LTDA. 

"SOFT-LOADER" — Interface micro-cassete para TK 82-C, 83, 
85 e Ringo. Indica nível certo para carregar programas sem proble¬ 
mas e falhas. (Veja Microhobby N? 10, 12 ou 13). Já um GRANDE 
SUCESSO PROVADO por centenas de usuários do TK. PREÇO: 
Cr$ 49.000,00 (Março). 

Mande seu pedido com cheque nominal ou vale postal para 
EKTRONIC COMPONENTES E SISTEMAS LTDA. Caixa Postal 
7004. São José dos Campos. CEP: 12200. Tel.: (0123) 291148. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


RIO DE JANEIRO 


PROSERV-ProctssaBtnto Bados.Cirsos t Rep.Ltdi. 
.RICROCORPUTABORES (Novos t Usados) 

.CURSOS (Cobol. Basic. CP/R. BBast II) 

.SUPRIRENTOS (Fofularios. Bisqutts. Fitas, ate.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

Lj.Nove de Abril 27 salas 626/62* 

Tel: (0243) 429000 - V.Redonda - RJ 


MINAS GERAIS 


Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 - Cariru - CEP 35160 - Fone (031) 821- 
2888 — Ipatinga — MG. 






















UM ARTIGO SERIO 



Atenção! Não deixe de ler este texto até o fim. Ele é um texto sério onde a 
SURPRESA e o - CIV serão explicados e/ou justificados, dependendo do 
seu bom humor. 

Em todos os textos que eu produzi para a Microhobby, sempre confiei bastante 
no bom humor e no espírito esportivo dos leitores. 

Tenho certeza de que não é necessário, mas assim mesmo . . . 

DESCULPEM-ME 
. . . pela brincadeira da última edição. 


Renato da Silva Oliveira 


Certamente, alguns leitores perceberam que os artigos 
“ir - a ClV, 0 Computador Inteligente" e "Surpresa" não 
passaram de brincadeiras. 

Sem sombra de dúvida, estes leitores notaram que o i r 
provém de Primeiro, o u provém de Abril, o CIV é 104 em 
algarismos romanos (1-04), e que as iniciais dos nomes dos 
cientistas imaginários formavam as palavras PRIMEIRO DE 
ABRIL 

Obviamente, estes leitores nem sequer deram-se ao tra¬ 
balho de digitar o programa SURPRESA, pois logo percebe¬ 
ram que ele era, na verdade, um programa em BASIC. 

Surpresa Visual 

Vamos, agora, tentar obter algo de útil do programa 
SURPRESA: uma explicação de seu funcionamento aos que 
não o entenderam. 

A memória RAM do TK é dividida em várias regiões. Os 
bytes entre 16384 e 16508, inclusives, são utilizados pela ROM 
para guardar as "variáveis do sistema". A partir do byte 
16509, começa a região em que os programas são guardados 
(figura 1). 


Figura 1 

Esquema da RAM 



Área das 
Variáveis 
do Sistema 

Área do 
Programa 

Área do 
Vídeo 

Área das 
Variáveis 

Área de 
Trabalho 

J: ROM 






00 





t tt t 



Neste byte (o último desta área), 
há sempre um código 118, 
corresponde ao NEW UNE 


Um programa é uma seqüência de linhas. Cada linha 
fica completamente determinada pelo seu número e pelo 
seu comprimento. Veja no esquema da figura 2 como essas 
informações são armazenadas (figura 2). 


Figura 2 


Armazenagem de uma Unha de programa 


OBS.: O comprimento da linha corresponde ao número 
de bytes usados pelos comandos, etc., mais o byte com 
o código 118. 


✓ 


:/ 




► 256* (valor do código no primeiro byte) + (valor do código no segundo byte) 


b (valor do código no primeiro byte) + 256* (valor do código no segundo byte) 


Vamos analisar como o programa da figura 3 seria ar¬ 
mazenado linha por linha conforme as figuras quatro à seis. 
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Figura 3 

1 REM TESTE 


2 PRINT "TESTE" 

3 RUN 


Figura 4 

Linha 1 


4 o° 




1? linha 


2 a . linha 


Número = 0 * 256 + 1 = 1 
Comprimento = 7 + 0 * 256 = 7 





Agora, o que aconteceria se alterássemos o valor do com¬ 
primento da primeira linha para 26 (comandando POKE 
16511,26)? 

A resposta é fácil, as três linhas passariam a ser apenas 
uma: a linha 1. 

Esse tipo de "truque" foi usado na confecção do progra¬ 
ma SURPRESA, juntamente com outro "truque" que explica¬ 
remos adiante. 

O micro distingue a área do vídeo da área do programa 
quando encontra dois códigos 118, um em seguida ao outro. 
0 primeiro corresponde ao final de uma linha e o segundo ao 
final do programa. O micro sabe, então, que não deve listar 
mais nada a partir desses bytes. 

Se nós quiséssemos fazer com que a listagem não apa¬ 
recesse a partir de um certo ponto, bastaria introduzirmos dois 
códigos 118 em seqüência dentro de sua linha com REM. 

Se comandássemos 


10 P ü KE 

lfiS15 ., 1R 

20 POKE 

16515.. 11S 


a listagem no vídeo ficaria assim: 


I REM 


A parte principal do programa SURPRESA estava em 
BASIC, comprimida numa só linha, a primeira. 

Depois dessa linha, haviam duas outras com os coman¬ 
dos POKE necessários para abrir a primeira linha, isto é, sepa- 
rá-la em suas diversas linhas. 

Haviam também comandos POKE para tirar os códigos 
118 em seqüência, de modo a permitir a listagem do pro¬ 
grama. 

O último comando era o RUN, que fazia o programa "cor¬ 
rer", a esta altura, já aberto. 

O comando, RAND USR era só para despistar e, ao ser 
executado, o micro saia do BASIC e retornava imediatamente 
a ele. 


Como fazer uma surpresa 

Para juntar as várias linhas concentradas na linha 1, ao in¬ 
vés de contar o comprimento de cada linha (acrescido dos 4 
bytes iniciais) e somá-los, foi usado um programa que realiza 
esse trabalho. 

O programa a seguir é um "unificador" de linhas. Ao ser 
executado, ele aguarda a introdução de dois números cie 
linhas (que devem necessariamente existir no programa). In¬ 
troduzidos esses dois números, o programa UNIFICADOR 
junta todas as linhas entre essas duas (inclusive) numa só: a 
linha cujo número foi o primeiro a ser introduzido. Você não 
verá esta união na tela, mas experimente correr o cursor entre 
estas linhas, editar a primeira ou apagá-la. 


Programa UNIFICADOR 


500 REM UNIFICADOR 
510 LET IP=0 

515 PRINT "ENTRE R i s LINHA:" 
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520 1HPUT LI 
525 PRINT LI 

530 PRXt-nr i! ENTRE R 2 5 LINHH: 8 ' 
64-0 INPÜT Lr 
650 PRINT LF 
555 FOR F = 1 TO 30 
555 NEXT F 
557 FR ST 
550 LET 1=15509 
530 IF IP=1 THEH GOTO 730 
530 IF PEEK I<>INT (LI/256) THl 
N GOTO 850 

700 IF PEEK (1 + 1) OLI-256 + INT ( 
LI/256) THEN GOTO 350 
720 LET LI=I 
725 LET IP=1 

730 IF PEEK IoINT (LF/256) í Hl 
N GOTO 350 

750 IF PEEK ÍI+1) <>LF-255*INT ( 

LF/256) THEN GOTO 350 
730 LET 1=I+PEEK í1+2)+256*PtEK 
(1+3)-LI 

300 POKE (LI+3),INT C1/255) 

320 POKE íLI+2) .I-256*INT (I/2b 
6*1 

34-0 LIST PEEK (LI + 1) +256+PEEK L 
I 

350 STOP 

360 LET I=I+PEEK (1+2)+2S5*PEtK 
(1+3)+4 
833 GOTO 530 


A utilidade de um programa desse tipo não se resume 
apenas à elaboração de blefes como o programa SURPRESA. 

Imagine uma situação em que você quer transformar as 
30 primeiras linhas de um longo programa em suas 30 últi¬ 
mas linhas. Basta juntá-las e depois alterar o número da única 
linha resultante da junção. Por fim, deve-se reordenar os nú¬ 
meros das linhas, manualmente, ou com o auxílio de um pro¬ 
grama ordenador. 


Por aqui você já pode parar a leitura, pois o que havia para 
ser dito já o foi e . . . 'Tudo que não se pode falar, deve-se 
calar". (L. Wittgeinstein) 


Como Colaborar com 
Microhobby 


Temos recebido várias cartas de 
pessoas interessadas em colaborar co¬ 
nosco, perguntando quais os critérios 
para publicação. Embora tenhamos usa¬ 
do, várias vezes, um anúncio da casa 
onde indicávamos como colaborar com 
Microhobby, resolvemos colocar neste 
número novas regras, de maneira a nos 
organizarmos melhor, garantindo tanto 
gs interesses dos leitores, como os da 
revista Microhobby. 

Assim, colocaremos algumas re¬ 
gras, que entrarão em vigor a partir des- 
publicação. As colaborações recebi¬ 
das anteriormente serão analisadas, 
uma a uma, e entraremos em contato 
com os autores oportunamente. 

Assim, ficam estabelecidas as se- 
juintes regras: 

a) Os autores que enviarem cola 
borações para Microhobby aceitam es¬ 
tas regras em carta anexa ao artigo. 

b) Uma vez recebida a colabora¬ 
ção, fica implícito que seu autor auto¬ 
riza a publicação de seu artigo. 

c) Os artigos passarão por uma 


triagem e os autores dos artigos aceitos 
receberão uma comunicação onde cons¬ 
tará: valor da remuneração estabelecido 
pela redação, segundo seus critérios; 
um contrato de cessão de direitos auto¬ 
rais que deverá ser assinado e devolvido 
à redação dentro de, no máximo, 10 dias. 
Qualquer discordância dos termos deve¬ 
rá ser comunicada neste período. 

d) O pagamento será efetuado 
após a publicação do artigo, desde que 
o contrato tenha sido assinado. Caso o 
artigo já tiver sido publicado, o autor po¬ 
derá assinar o contrato no momento do 
pagamento. 

e) Os artigos não aceitos serão de¬ 
volvidos aos autores (inclusive material 
anexo: fitas e listagens). 

f) Os artigos e programas remune¬ 
rados serão considerados propriedade 
da Micromega PM D Ltda., podendo es¬ 
ta fazer o uso que lhe convier (inclusive 
não publicá-lo). 

g) As colaborações poderão ser: 

1) Artigo sobre assuntos relativos à 
Informática de um modo geral; 


2) Artigos sobre computadores de 
uma das seguintes linhas: TK 83/85. TK 
2000, 2000 II, Apple ou seus compatí¬ 
veis. 

3) Programas para estas mesmas li¬ 
nhas. Junto com a listagem do progra¬ 
ma deverá vir um texto explicativo so¬ 
bre o funcionamento do mesmo, utili¬ 
zação, detalhamento, ou o que mais o 
autor achar conveniente. O computador 
utilizado deverá estar claramente indi¬ 
cado. 

h) Programas acompanhados por 
fitas serão mais facilmente analisados. 

i) O texto dos artigos ou progra¬ 
mas deverão vir datilografados ou, pelo 
menos, escritos com letra legível. 

j) Os autores asseguram a originali¬ 
dade do texto e dos programas. As fon¬ 
tes deverão ser citadas. 

Estes são os regulamentos. Toda¬ 
via, quando seu autor manifesiar-se ex¬ 
pressamente por carta, poderemos estu¬ 
dar alterações, desde que sejam conve¬ 
nientes para ambas as partes. 
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SOMOS ESPECIALIZADOS EM INFORMÁTICA. ELETRÓNICA. MANUAIS DE FABRICANTES E DE CIRCUITOS, 
TELECOMUNICAÇÕES E ELETROTÉCNICA. PORTUGUÊS - INGLÊS - ESPANHOL., 


LOTUS 1-2-3 - GUIA DO USUÁRIO 

por Edward Baras 

Guia prático para utilização e acompanhamento 
do software LOTUS 1-2-3, especialmente desenvol¬ 
vido para as áreas financeiras e de negócios em 
geral. 

Através de instruções simples, claras e de fácil 
compreensão, poderá atender suas necessidades de 
planejamento financeiro, aumentando sua capaci¬ 
dade de gerenciamento de informações e tomada de 
decisões. Cr$ 43.000 

IBM PC E SEUS COMPATÍVEIS 
GUIA DO USUÁRIO 

por Jonathan Sachs 

Um guia prático para o usuário que deseja fazer 
seu IBM PC funcionar, O IBM-PC — Guia do Usuá¬ 
rio, atende os usuários principiantes até os mais ex¬ 
perientes, proporcionando um domínio completo do 
MICRO em pouco tempo. 

O texto inclui o PC-XT e o sistema operacional 
DOS 2.0 que pode ser utilizado em todos os IBM-PC 
- compatíveis. CrS 39.000 

MS-DOS - GUIA DO USUÁRIO 

por Paul Hoffman/Tamara Nicoloff 

Guia completo deste sistema operacional utili¬ 
zado no IBM PC e em outros Micros de 16 bits. 

Abrange todas as suas versões, inclusive a re¬ 
centemente lançada 2-1, além de trazer informações 
completas sobre o PC-DOS — a versão exclusiva do 
MS-DOS para o IBM PC e seus compatíveiCrS 39.000 

ZX-81 (TKs e compatíveis) 

Hardware Sinclair — Para os micros TK 82C — NE 

Hardware Sinclair — Para os micros TK 
82C - NE Z8000 - TK83 - TK85 - 

CP200 - Lima. CrS 18.000 

Dissecando Jogos em Basic comentado 

linha por iinha para TKs — Salvato_ Crê 20.900 

Criando em Linguagem de Máquina — 

Ejchel.' Cr$ 33.200 

Evoluindo no Basic TK — Stein . Cr$ 29.800 

O seu Micro e o Mundo Externo — 

Schon . . Cr$ 32.900 

APPLE 

20 Jogos Inteligentes em Applesoft — 

Para toda a Linha Apple — Palmer. Cr$ 15.000 


Apple II Guia do Usuário — Poole/ 

McNiff. CrS 37.000 

Manual de Basic — Para sistemas com¬ 
patíveis com o Apple II — Peckham_ Cr$ 26.000 

Programas usuais em Basic para Siste¬ 
mas Compatíveis compatíveis como o 

Apple II — Poole. Cr$ 22.000 

Por Dentro do Apple — Tucci.. CrS 35.000 

Dê um Apple e sua Vida — Mirshawka . CrS 36.000 

Programas Comerciais da linha Apple 

para pequena empresa — Abreu ...... Cr$ 25.000 

77 Programas para linha Apple — Abreu CrS 25.000 
Conhecendo e utilizando o TK-2000 — 

Mirshawka. Crê 18.000 

TK-2000 na Matemática — Mirshawka . CrS 28.000 

Usando o Visiplot — Abreu/Lima. CrS 21.000 

A Primeira Mordida — Tucci/Moreira .. CrS 19.500 
Elppa II Plus — Manual de Instruções — 

Victor do Brasil. CrS 19.500 

MICROCOMPUTADORES/ 

MICROPROCESSADORES 


Microprocessadores e Microcomputa¬ 
dores — Hardware e Software — Tucci 
Introdução a Arquitetura e Organização 

de Computadores — Lorin. 

Matemática para Microcomputadores — 

Barden Jr. 

Microcomputadores e Microprocessa¬ 
dores — Malvino. 

Introdução aos Microcomputadores — 

Volume 0 — Osborne. 

Microprocessadores — Conceitos Bási¬ 
cos — Volume 1 — Osborne. 

Microprocessadores de 16 Bits — Titus/ 

Titus.!. 

Aplicação de Microprocessadores na In¬ 
dústria — NCC. . 

Introdução aos Microcomputadores — 

Bianchi. 

Introdução aos Microprocessadores — 

Tokheim .. 

Aplicações aos Microprocessadores — 

Kuecken . 

Microcomputador e Informática — Shi- 


Cr$ 35.000 


CrS 36.000 


CrS 18.000 


CrS 27.900 


CrS 21.900 


CrS 24.900 


CrS 47.900 


CrS 46.800 


CrS 19.800 


CrS 24.900 


CrS 36.800 


CrS 15.000 


PREÇOS SUJEITOS A ALTERAÇÃO 

Atendemos pelo Reembolso Postal e VARIG, com 
despesas por conta do cliente, para pedidos acima 
de CrS 10.000,00 (VARIG: CrS 30.000,00). Pedidos 
menores devem vir acompanhados por cheque no¬ 
minal ou Vale Postal, acrescidos de CrS 1.000,00 pa¬ 
ra as despesas de despacho pelo correio. 


L/íec. 

LIVRARIA EDITORA TÉCNICA LTDA. 


RUA DOS TIMBIRAS, 257 

01208 — São Paulo — SP 
Tel.: 220-8983 
Caixa Postal 30.869 


























Fórmula I 

Memória Ocupada: 9463 bytes 
Soma Sintática: 23141 

Nível: (3 computadores) 

Computadores: TK-83 e compatíveis 




FORMULA I 


Raul Udo Christmann 


OBJETIVO 


0 objetivo deste jogo é levar um 
carro (representado por ) do ponto 
de largada até o de chegada, num cir¬ 
cuito desenhado na tela, no menor 
tempo possível e com o combustível 
disponível. 


COMO ENTRAR COM OS DADOS 


0 circuito contém 52 posições e, à 
cada uma, deve-se informar o acrésci¬ 
mo de velocidade (mais ou menos) e a 
marcha (posição da alavanca da mu¬ 
dança, 1 a 5). Exemplos: 


— 401 se for na saída, representa a 
partir da imobilidade para 40 km/h, uti¬ 
lizando a 1? marcha. 

— 302 diminui a velocidade de 30 
km/h, em 2? marcha. 

05 mantém a velocidade atual 
(acréscimo igual a zero), em 5? 
marcha. 


RESULTADOS PARCIAIS 


Após cada indicação de veloci¬ 
dade, alguns resultados parciais são re¬ 
presentados na tela: 

a) velocidade do momento, em km/h; 

b) velocidade média até o momento, 
em km/h; 


c) tempo em segundos consumido até 
o momento; 

d) rotação do motor em rpm (rotações 
por minuto); 

e) marcha em uso no momento; 

f) saldo de combustível, em litros; 

g) condições da pista duas posições à 
frente; 

h) avisos diversos. -► 


1 REM CORRIDA DE FORMULR-1 

2 REM POR R.UDO CHRI5THRNN 

10 PRINT RT 10,5 ;"CORRIDR DE P 
ORMVJLR — 1" ; 

20 PRUSE 360 

30 CLS 

4-0 LET T$= M DIGITE <NEU LINE>" 

50 CLS 

60 PRINT TRB 3; . .CORRIDR DE P 

ORMULR -1*. 

70 PRINT 

60 PRINT TRB 3;"-R CRDR INSTRN 
TE, DIGITE" 

90 PRINT *• O RCRESCIMO DE UEL 
OCIDRDE:“ 

100 PRINT M (+OU-) .E R MRRCHR 
(1 R 5) " 

110 PRINT PR RR O PROXIMO TRE 

CHO. . . *' 

120 PRINT RT 20 j 6;T< 

130 INPLTT G % 

140 CLS 

150 PRINT M ,,,, RTENCRO ,,, ‘, PRRR 
05 LIMITES:" 
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160 

PRINT 

RT 2 

í,4; **- 

MRRCHR U. 

MRX 

890 

PRINT 

RT 

0,17;"SRIDR 

•% 


.RCELER. 






900 

PRINT 

RT 

1,2;R* 

20 ) 


170 

PRINT 

,,TRB 6 ; ” 

1 

90 

910 

PRINT 

RT 

2,3; fi* ( TO 


+50/- 

50*' 






920 

PRINT 

RT 

4-,16;R*( TO 

5) 


160 

PRINT 

TRB 

6 ; **2 


128 

+4 

930 

PRINT 

RT 

5 t 3j fit ( TO 

10 ) ; 

TRB 

0 / —40 

" 




16;R$( TO 

3 ) 

6,2;fl$( TO 

10 ) 


190 

PRINT 

TRB 

6 ; "3 


270 

+3 

940 

PRINT 

RT 


0 / -30 

• t 



950 

PRINT 

RT 

9,2; ftí( TO 

10 ) 


200 

PRINT 

TRB 

6 ; **4 


360 

+2 

960 

PRINT 

RT 

10,3;TO 

10 ) 


0/-2O 

! 91 




970 

PRINT 

RT 

13,3;fi*( TO 

12 ) 

;tr 

210 

PRINT 

TRB 

6 ; *'5 


450 

+ 1 

6 20; 

RS( TO 3) 




0'-10 

i* 4 




980 

PRINT 

RT 

14-,2;fi*( TO 

14 ) 

;tr 

220 

PRINT 






B 19; 

RS < TO 5) 




230 

PRINT 

TRB 

5:"RPM 

MRX.DO 

MOT 

990 

FOR I 

= 1 TO 5 



OR =9000" 




1000 

PRINT 

RT 

i , 2 ; cs 




24.0 PRÍNT TRB 5; "COMBUSTIUEL. (LT 

OJ=500 

250 PRINT RT 20,6;Ti 
260 INPUT GS 
270 CL5 

280 PRINT "NflS CURUflS R U.MRX.F 
ICR REDU2IDREH 40 P/CENTO." 

290 PRINT 

300 PRINT "-UELOCIDRDE PROXIHO 
DO LIMITE CRU5R DERRRPRGEM E 

RCRE5CIMO NO TEMPO CMULTR).” 

310 PRINT 

320 PRINT "-PISTR COM ,,, *OLEO ,,M 
U.MRX.REDUZIDR EM 40 P/CENTO,* 1 
330 PRINT 

340 PRINT “ -PISTR" "UIÍIDR“ ** , U*M 
RX. REDUZ IDR EM 10 P/CENTO*** 

35© PRINT 

360 PRINT ,, -PISTfi , “'MOLHRDR ,%% ’ .U, 
MRX.REDÜZIDR EM 20 P/CENTO. í% 
370 PRINT RT 20,6; TS 
360 INPUT GS 
390 CLS 

400 PRINT RT 20,6; “RGURRDE UM P 


ouco. 

• • 

• » 



410 

PRUSE 120 


420 

CLS 



430 

PRST 


440 

DIM 

R C52) 


450 

LET 

K = 122 


460 

POR 

1 = 1 TO 

11 

470 

LET 

R ( I) =K 


480 

LET 

K =K —2 


490 

NEXT 

‘ I 


500 

LET 

R(12)=302 

510 

LET 

K =502 


520 

POR 

1—13 TO 

18 

530 

LET 

R(I)=K 


540 

LET 

K=K+2 


550 

NEXT 

I 


560 

LET 

R(19)=712 

570 

LET 

K =912 


580 

POR 

1=20 TO 

25 

593 

LET 

R(I)=K 


600 

LET 

K=K-2 


610 

NEXT 

I 


620 

LET 

R(26)=1102 

630 

LET 

K = 1302 


640 

POR 

1=27 TO 

33 

650 

LET 

R(I)=K 


660 

LET 

K=K+2 


670 

NEXT 

■ I 


b80 

LET 

K = 1215 


5Q0 

FOR 

1=34 TO 

38 

700 

LET 

R(I)=K 


710 

LET 

K=K-200 


720 

NEXT 

‘ I 


730 

LET 

R (39) =4-17 

740 

LET 

K =419 


750 

POR 

1=40 TO 

44 

760 

LET 

R(I)=K 


770 

LET 

K=K+200 


730 

NEXT 

’ I 


790 

LET 

R(45)=1320 

300 

LET 

R(46)=1322 

810 

LET 

K = 1223 


620 

FOR 

1=47 TO 

52 

830 

LET 

R(I) =K 


840 

LET 

K=K-200 


850 

NEXT r 


860 

CLS 



870 

LET 

R$ = ""—■ 






880 

LET 

C* = "| " 



1010 NEXT I 1 
1020 POR 1=9 TO 13 
1330 PRINT RT 1,2;CS 
1040 NEXT I 
1O50 POR 1=2 TO 4 
1360 PRINT RT 1,3;C* 

1370 NEXT I 

1360 POR 1=10 TO 12 

1093 PRINT RT 1,3;CS 

1100 NEXT I 

1110 POR 1=6 TO © 

1120 PRINT RT 1,12;CS 

1130 NEXT I 

1140 POR 1=5 TO 9 

1150 PRINT RT 1,13;CS 

1160 NEXT I 

1170 POR 1=4 TO 12 

1180 PRINT RT I,15;C$;T RB 20;CS 

1193 NEXT I 

1200 POR 1=5 TO 13 

1210 PRINT RT I,16;CS;TRB 19;CS 
1220 NEXT I 
1230 POR 1=2 TO 12 
1240 PRINT RT 1,23;CS 
1250 NEXT I 
1260 POR 1=1 TO 13 
1270 PRINT RT 1,24;CS 
1260 NEXT I 
1290 PLOT 5,41 
1300 PLOT 7,39 
1310 PLOT 5,25 
1320 PLOT 7,23 
1330 PLOT 24,25 
1340 PLOT 26,23 
1350 PLOT 30,17 
1360 PLOT 32,15 
1370 PLOT 31,35 


1380 

PRINT 

RT 

1,26; " 

C.GER.“ 


1390 

PLOT 

33, 

33 



1400 

PLOT 

46, 

17 



14 10 

PLOT 

4S, 

15 



1420 

PRINT 

RT 

2,26; *' 

PISTR" 


1430 

PRINT 

RT 

3,16, ' 

‘ CHEGRDR 

“; Tflü 

26; 


•* 




1440 

PRINT 

RT 

12,25; 

“PI5TR: 

•* 

1450 

PRINT 

RT 

16,1; 11 

1 UELOC: “ 

; TRB 

12;“K/H ROT RC 

• , 


TRB 

27; " 

RPM “ 





1460 

PRINT 

RT 

17, l; ' 

U.MED.“ 

; TRB 

12;“K/H MRRCH 

• , 



1470 

PRINT 

RT 

18, l; “ 

TEMPO : “ 

.TRB 

12; “ 

SEG.GR 

SOL 

- ; 


TRB 

27, "i 

LTS. “ 




O RCR 

1430 

PRINT 

RT 

20,0; “ 

DIGITE 


ESCIMO DE UELOCIDRDEE R MRRCHP P 
/PROXIMÜ TRECHO.” 

1490 SLOU 

1500 LET UMAX=450 

1510 LET D=0 

1520 LET PGS=0 

1530 LET P=3 

1540 LET 6=10 

1550 LET R = INT (RND+6) +1 

ISSO LET GR5=500 

1570 IP R < =4 THEN PRINT RT 4,26; 
“ 5ECR" 

1560 IP R > 4 RND R<=7 THEN PRINT 
RT 4,26;"UMIDR" 

1590 IF R>7 THEN PRINT RT 4,25;" 
MOLHRDfl" 

1600 IP R > 4 RND R < =7 THEN LET UN 

RX=UMRX*.9 

1610 LET MR1=0 

1620 IP R > 7 THEN LET UMRX = UMRX** 
8 


MICROHOBBY 23 




1630 LET 0=0 
164-0 LET POS = l 
1650 PRXNT RT 1.22; 

1660 LET RUE=0 
1670 LET UELOC=RUE 
1680 LET ST =POS 
1690 LET HR1=0 
1703 INPUT UEHR 
1710 LET POS=POS+l 

1720 IF P0S=P THEN LET UMRX=UMRX 
* . 6 

1730 XF POS=ll OR POS=13 OR POS = 
18 OR POS =20 OR PGS=25 OR POS=27 
OR POS =33 OR P0S=3S OR POS=4-0 O 
R POS =4-4- OR POS =4-6 THEN GOSUB 26 
10 

174-0 LET UE=INT (UEMR/10) + (OEMR < 
10 ) 

1750 LET MR=RBS (OEMR)—INT (RBS 

(UEMfl) /10) *10 

1760 LET G=flBS (UE) 

1770 IF Mfl=l RND G>50 THEN GOSUB 
2700 

178© IF Mfl=2 RND G > 4-0 THEN GOSUB 
2700 

1790 IF Mft=3 RND G>3© THEN GOSUB 
2700 

1800 XF MR =4- RND G>20 THEN GOSUB 
2700 

1810 IF Mfl=5 RND G>10 THEN GOSUB 
2700 

1820 IF MR =0 OR MR > 5 THEN GOTO 8 
7 0 

- 1 -7 3C)RND HR > 1 THEN GOTO 
1850 

1340 GOTO 1950 

1850 FOR 8=1 TO 5 

1860 PRINT RT 7,25;"COMO E"" 

1S70 PRINT RT 8,25;"SPIR” 

1330 PRINT RT 9,25; "EM "; MR; ** '>" 

1390 FOR 1=7 TO 9 
1900 PRINT RT 1,25;" 

1910 NEXT I 

1920 NEXT J 

1930 LET POS=POS-l 

1940 GOTO 1690 

1950 LET RUE=RUE+UE 

1960 LET MR1=MR 

1970 LET 0=0+RUE 

1980 LET U6LOC=UELOC+UE 

1990 IF UELOC < 0 THEN LET UELQC=0 

2000 IF UELOC > UMAX THEN GOTO 253 

0 

2010 IF B < =5 RND UELOC>UMRX*. 6 T 
HEN GOSUB 2640 

2O20 IF D =1 RND UELOC>UMRX*.8 TH 

EN GOSUB 2640 

2030 LET OEME=0/(P05-1) 

2040 LET MR1=1 

2050 LET ROTR =UELOC/MR*100 
2C60 IF ROTR >9000 THEN GOTO 2400 
2070 LET TENPO= (POS-1) /'UELOC *10 
2080 LET ST =ST +TEMPO 

2090 IF UE>=0 THEN LET GRS=GRS—R 
OTR/250 

2100 IF GRS < =0 THEN GOTO 2380 
211© LET LI=INT (H(PQ5)/100) 

2120 LET CO=R(POS)-INT (R(P05)/I 
00)*100 

2130 PRINT RT LI,CO,"S” 

2140 PRINT RT 16,7;" ";RT 16.7 

;UELOC 

2150 IF POS>2 RND UELOC<80 THEN 
GOSUB 2330 

2160 PRINT RT 17,7,INT (UEME) 

2170 PRINT RT 18,7; INT (ST*10)/'l 
0 

2180 PRINT RT 16,22;INT (ROTR) 
219© PRINT RT 17,22;MR 
2200 PRINT RT 18,22;" ";RT 18. 

22; INT (GRS) 

2210 IF POS =52 THEN GOTO 2760 
2220 IF PGS=P THEN LET UMRX=UMRX 

y.e 

2230 IF POS = 10 OR POS = 12 OR POS = 

17 OR POS = IS OR POS =24 OR POS=26 
OR POS =32 OR POS =37 OR POS=39 O 
R POS=43 OR POS =45 THEN GOSUB 24 
80 


2240 IF D =1 THEN LET UMRX=UMRX.'. 
3 

2250 IF D =1 THEN LET D=0 
2260 REM SORTEIO COND/PISTR 
2270 LET 8 = INT (RNDilOO) 

2280 IF B < =5 THEN PRINT RT 14,26 
;"OLEO" 

2290 IF B <=5 THEN LET P=POSt2 
2300 IF B>5 THEN LET P=0 
2310 IF B >5 THEN PRINT RT 14,26: 
"—OK—" 

2320 GOTO 1700 
2333 FOR E=1 TO 6 

2340 PRINT RT 8,25;"TRRTR",RT 9, 
25;"RUGR." 

2350 PRINT RT 8,25;" RT 9. 

55 • •• *• 

2360 NEXT E 
2370 RETURN 

2380 PRINT PT 7,25;“RCPBOU".RT 6 
,27; "R"; RT 9,25; "GRSOL . "; RT 10,2 
5; ”E* O FIM" 

2390 STOP 

2400 PRINT PT 7,25;"FUNDIU";RT 8 
,27;•O-;PT 9,25;“MOTOR";RT 10,25 
;"E á O FIM'* 

2410 FOR E=1 TO 5 
2420 FOR U=1 TO 3 

2430 PRINT PT 16,22;INT (ROTR) 

2440 NEXT U 

2450 PRINT PT 16,22;*’ 

2460 NEXT E 

2470 5TOP 

2480 FOR E=1 TO 6 

2490 PRINT PT 8,25, U CUIDR";RT 9, 
27;"DO” 

2500 PRINT PT 8,25;" "; PT 9, 

27; " 

2510 NEXT E 
2520 RETURN 
2530 FOR E = 1 TO 6 

2540 PRINT PT 7,25;"EXCESSO”;RT 

6.25, " DE";PT 9,25;“UELOC." 

2550 PRINT RT 7,25;" ";PT 

8,25;" ";PT 9,25;" 

2550 NEXT E 

2570 PRINT RT 6.25;"E*O FIM" 

2580 PRINT PT 7,25; "TE UEUO";RT 
8,28;"NO" 

2590 PRINT PT 9,25;"FUNERPL" 

2600 ST OP 

2610 LET UMAX= UMRX * • 3 
2620 LET D=1 
2630 RETURN 
2640 LET ST=5T+.01 
2650 FOR E = 1 TO 6 

2660 PRINT PT 7,25;"DERRR",RT 8, 
25;"PAGEM" 

2670 PRINT PT 7,25;" ";PT 8. 

25; " 

2680 NEXT E 
2690 RETURN 
2700 FOR E = 1 TO 6 

2710 PRINT PT 7,25;"INFORMA”;RT 

8.25, " CPO";PT 9,25;"ERRADA." 

2720 PRINT PT 7,25," RT 

8,25;" * ";PT 9,25;" 

* i 

2730 NEXT E 

2740 LET POS=POS-l 

2750 GOTO 1700 

2760 LET ES=UEME*GAS/5T 

2770 PAUSE 180 

2780 CL S 

2790 PRINT TAB 8; "P R R P B E N 
5 " 

2800 PRINT 

2010 PRINT " UOCE CONSEGUIU T 

ERMINPR" 

2820 PRINT ,,,,TAB 13;" g^ 

2330 PRINT PT 10,6;"SEU ESCORE F 
OI DE: " 

2840 PRINT 

2S50 PRINT " "; INT (ES);" PO 

NTOS" 

2360 ST OP 
2370 5AUE "FB" 

2380 RUN 
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RESULTADO FINAL 


O PROGRAMA 


Alcançando-se o ponto de chega¬ 
da, é calculado um escore, cuja fórmu¬ 
la é: 

p _ v x (500 - c) 
t 

onde: 

t = tempo final de percurso 

v = velocidade média 

c = combustível utilizado 

que pode ser utilizado de parâmetro 

comparativo entre vários "pilotos". 

RESTRIÇÕES 

Sem restrições o jogo não teria 
graça. Assim, existem certas limita¬ 
ções, que são: 

a) para cada marcha, o acréscimo ou 
decréscimo máximo permitido é de: 


marcha 

1? 

2! 

3? 

4? 

5? 

km/h 

50 

40 

30 

20 

10 


b) o motor admite uma rotação máxi¬ 
ma de 9.000 rpm. Acima deste va¬ 
lor, ele funde; 

c) o carro parte com uma disponibili¬ 
dade de 500 litros de gasolina espe¬ 
cial, e seu consumo é calculado 
com base na rotação, que por sua 
vez depende da marcha e da veloci¬ 
dade. O combustível é limitado e 
não é permitido o reabastecimento 
no meio do circuito; 

d) a velocidade máxima, nas retas 
(pista em boas condições e seca) é 
de 450 km/h. Entretanto: 

— nas curvas este limite fica redu¬ 
zido em 30 por cento; 

— veiocidade próxima do limite po¬ 
de causar derrapagem ocasional e 
conseqüentemente, o acréscimo de 
dois segundos no tempo utilizado 
até então; 

— à cada posição é simulado a pre¬ 
sença ou não de uma poça de óleo, 
duas posições à frente (5 por cento 
de probabilidade de existência). A 
existência reduz o limite em 60 por 
cento; 

— no início da corrida é simulado 
as condições do tempo e da pista: 
50 por cento de probabilidade de es¬ 
tar seca ; 30 por cento de probabili¬ 
dade de estar úmida,- e 20 por cen¬ 
to de probabilidade de estar enchar¬ 
cada. 

Nas duas últimas condições, o li¬ 
mite fica reduzido em 10 e 20 por cen¬ 
to respectivamente; 

e) excesso de velocidade, falta de 
combustível e o excesso de rotação 
do motor eliminam o piloto da corri¬ 
da e do jogo. 


Todo o programa é escrito em BA¬ 
SIC, facilitando a sua compreensão, o 
que não implica em lentidão. Para os 
que desejam envenená-lo as indica¬ 


ções da tabela I são necessárias. A ta¬ 
bela II mostra algumas sugestões para 
incrementar o jogo. 


Tabela I 


Indicações sobre o programa 


linhas 

conteúdo 

1 a400 

explicações iniciais 

430 a 850 

determinação de valores, 
que permitam o cálculo 
das coordenadas (modo 
PRINT), das 52 posições 
do circuito (vide 2130 e 
2120) 

870 a 1490 

desenho do circuito (pis¬ 
ta de corrida) 

1500 a 1690 

estabelecimento das 

condições iniciais 

1700 

variável de entrada VE- 
MA = VE + MA (veloci¬ 
dade + marcha) vide 
1740 a 1750 

1950 a 2320 

cálculo das condições 
parciais do jogo 

1550 

simulação das condições 
iniciais do tempo e da 
pista 

2270 

simulação da presença 
ou não de óleo na pista 

1500 

determinação da veloci¬ 
dade máxima 

1560 

determinação da capaci¬ 
dade do tanque de com¬ 
bustível 

2060 

determinação da rotação 
máxima do motor 

2480 a 2750 

avisos diversos quando 
da ocorrência de certas 
situações 

2760 

cálculo do número de 
pontos alcançados ao fi¬ 
nal do jogo 

2870 

para salvar o programa 
com o "labei", "F1" 


Tabela II 

Sugestões para melhorar 
o programa 


dar várias voltas no circuito, permitin¬ 
do o reabastecimento com tempo alea¬ 
toriamente calculado; 


apagar o sinal da posição anteriormen¬ 
te ocupada; 


mostrar, como valor parcial, a tempe¬ 
ratura do líquido de refrigeração e a 
pressão do óleo e simular a ocorrência 
de problemas neste sistema, e parada 
por quebra ou incêndio; 


simular a necessidade de parada nos 
boxes para troca de pneus ou revisão. 


O 


PROTEJA 


o seu 


fllCROCOflPUTRDOR 


COM FILTRO DE 
LINHA 



RUIDO ELETRICO 


contra INTERFERÊNCIA: 

RÁDIO FREQUÊNCIA (RF) 


o/v# j\n 


pnntríi p, COS DE VOLTAGEM 

111 TRANSIENTES DE TENSÃO 




POTÊNCIA: ATINGE ATÊ 1,5 KVA 


ZENTRANX 

Av. Vitor Man/ini, 410 Santo Amaro São Paulo 
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FORMATAÇÃO EM APPLESOFT 


A maioria das pessoas que pro¬ 
gramam em FORTRAN, acham o 
comando FORMAT uma "chatice", 
muitas vezes se esquecendo do to¬ 
tal controle sobre o formato de en¬ 
trada e saída dos dados do progra¬ 
ma, que este comando dá. Obvia¬ 
mente, o comando PRINT do BA¬ 
SIC, dispensando especificações de 
formato, é muito mais prático. Mas, 
muitas vezes queremos controlar a 
formatação dos números a serem 
impressos (ou visualizados), por 
isso, alguns BASICs como o Micro¬ 
soft BASIC, permitem a opção 
PRINT USING, em que o formato 
dos números pode ser especificado. 

No Applesoft BASIC não há, 
nenhum comando, seja obrigatório 
ou opcional, para formatar núme¬ 
ros, todo número é mostrado com 
todos os seus dígitos significativos. 
Além disso não há controle sobre a 
posição do ponto decimal (chama¬ 
do de tabulação decimal). Ao se im¬ 
primir uma tabela, um bom resulta¬ 
do visual é obtido quando os núme¬ 
ros são impressos com os pontos 
decimais alinhados um em cima do 
outro. 

Só para se ter uma idéia de co¬ 
mo o Applesoft está longe de con¬ 
seguir isso, rode o seguinte "pro- 
graminha": 



José Eduardo Moreira 
Wilson JoséTucci 


Podemos construir uma sub-ro- 
tina que ajude a "consertar" isso. 
Precisamos usar o comando TAB(x) 
para iniciar a impressão do número 
na coluna certa. Obviamente x é 
função do número de dígitos signi¬ 
ficativos antes do ponto que o nú¬ 
mero tem. Se um número tem mui¬ 
tos dígitos antes do ponto, devemos 
começar a imprimir antes. Se ele 
tem poucos dígitos, devemos come¬ 
çar a imprimir depois. Lembrando 
que, em Applesoft, uma operação 
lógica retorna 1 se for verdadeira e 0 
se for falsa. Assim podemos escre¬ 
ver a seguinte sub-rotina^.que cal¬ 
cula a tabulação T para um certo 
número N. 


Para testar, vamos rodar o se¬ 
guinte programa: 



Ótimo, não?! Bom, pelo menos 
para os números positivos. Pode¬ 
mos modificar a sub-rotina para tra¬ 
tar também números negativos: 


1000 I = 

í - 

(2 * (N < 0) 

) 



iOíü T = 

10 - 

((N * I) ) 

= ÍOOOO) 

- ( 


<N * I) ) 

= 

1000) - <<N 

* I) > = 

10) 

- MN * I) > 

= 0) - 

<N < 

0) 

1020 RETURN 



1000 1 

r = 

10 - (N > = 

100 

00) - 

(N 

> = 


1000) 

— i 

(N > = 100) 

- (N 

> = 

10 



) - (N > 

= 0) 


1010 

RETURN 
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0 comando I = 1 — (2 * (n 
0)) deixa I valendo 1 sen N 0 e 
valendo — 1 caso contrário, assim 
na linha 1010 comparamos sempre o 
módulo de N (podíamos também ter 
usado a função ABS). Se o número 
é negativo, subtraímos ainda mais 
um espaço para dar lugar ao sinal 
negativo. 

Basta agora correr o programa 
e você verá que a tabulação deci¬ 
mal está totalmente implementada. 
O próximo passo é limitar o número 
de casas depois do ponto. Se qui¬ 
sermos ter apenas duas casas de¬ 
pois da vírgula, basta acrescentar 
uma linha à sub-rotina: 


1000 N = INT (N * i00 

+ 

.5) / 100 


1010 I = 1 - (2 # (N < 

0) 

) 


1020 T = 10 - <(N * I) 

> 

= 10000) - ( 


(N * I) > = 1000) - ((N 

* I) > = 100) - ((N * 

I) 

> = 10) - <<N * I) > 


= 0) - (N < 0) 


1030 RETURN 



Em geral, para "f" casas depois 
do ponto, escrevemos: 



Essa rotina é ótima para impri¬ 
mir números, mas se quisermos im¬ 
primir valores em dinheiro, pode 
apenas colocar "$" antes do núme¬ 
ro modificando a linha 10 para: 



então você irá observar alguns pe¬ 
quenos problemas: 

1. se o número é negativo, o 
sinal negativo é impresso depois do 
cifrão ($ - 12.37); 

2. se o número é menor que 1, 
não será impresso um 0 antes do 
ponto decimal; 

3. se o número tem apenas 1 
ou nenhuma casa decimal, não se¬ 
rão impressos zeros para completar. 

Para resolver estes problemas 
iremos transformar o número N nu¬ 
ma cadeia de caracteres (N$) e en¬ 
tão manipulamos essa cadeia. 

Para começar, vamos fazer 
uma sub-rotina que arredonda N e o 
transforma numa cadeia: 


ÍOOO N = INT (N * 100 + 
.5) / 100 

1010 Ni = STRi (N) 

1020 RETURN 


Modificamos a linha 10 para: 



e rodamos o programa. 

O que fizemos não foi suficien¬ 
te para colocar 0s complementares. 
Podemos dar um jeito fácil nisso: 



Agora, forçamos o número a 
ter uma terceira casa decimal, que 
jogamos fora, na linha 20, pegando 
todos os elementos da cadeia me¬ 
nos o último. 

Modifiquemos agora a sub-ro¬ 
tina para tratar números menores 
que 1 e números negativos: 


1000 Ni = "i": IF ABS (N 
) < 1 THEN Ni 
= Ni + "0": IF N = 0 THE 
N Ni = " 

0.00": GOTO 1050 
1010 IF N < 0 THEN Ni = 

+ Ni 

1020 N = INT ( ABS (N) * 
100 + .5) / 

100 + .001 

1030 NI = Ni + STRi (N) 
1040 Ni = LEFT1 (Ni, LEN 
(Ni) - 1) 

ÍQ5G RETURN 


Para acertar de novo a posição 
do ponto, temos que incluir espa¬ 
ços suficientes na frente do núme¬ 
ro. A linha 1050 cuida disso: 


1000 Ni = "i": IF ABS (N 
) < 1 THEN Ni 
= Ni + "0": IF N = 0 THE 
N Ni = " 

0.00": G0T0 1050 
1010 IF N < 0 THEN Ni = 

+ Ni 

1020 N = INT ( ABS (N) * 
i00 + .5) / 

100 + .001 

1030 Ni = Ni + STRi <N) 
1040 Ni = LEFTi (NI, LEN 
(Ni) - 1) 

1050 IF LEN (Ni) ( 10 T 
HEN Ni = " " + Ni: GOTO 10 
50 

1060 RETURN 


E a sub-rotina está pronta! 
Agora você tem duas peque¬ 
nas sub-rotinas para formatar nú¬ 
meros. Uma inteiramente numérica 
e outra que inclui processamento de 
caracteres. 

Boa aplicação! 
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Este é um programa multi-cadas- 
tral, desenvolvido em um micro compu¬ 
tador Apple com 48K de memória RAM 
e uma unidade de discos. 

É dirigido principalmente à utiliza¬ 
ção pessoal, com a finalidade de manter 
pequenos registros de diversas modali¬ 
dades, tais como: movimentação da 
conta bancária, dados de amigos e pa¬ 
rentes (para remessa de cartões de Na¬ 
tal), etc. 

Seu manuseio é extremamente sim¬ 
ples, uma vez que todas as funções dis¬ 
poníveis são acessadas por menus, bas¬ 
tando o toque de apenas uma tecla para 
obter a função escolhida. 

Caso seja cometido algum erro na 
sua utilização, será devolvido o código 
deste erro na tela, retornando, em segui¬ 
da, para o menu principal, o que possibi¬ 
lita ao usuário contornar o problema 
sem a interrupção do programa, o que 
causaria a perda de todos os registros da 
memória se o programa fosse rodado 
novamente. 

Cadastro está dividido em 50 regis¬ 
tros com 7 setores cada um, podendo 
guardar informações de até 23 caracte¬ 
res por setor. 

Possui rotinas de edição, deleção, 
gravação e leitura, impressão, listagem 
de registros, procura por substrings e 
procura por número de registros. 

Para definir os 7 setores conforme 
suas necessidades, basta alterar a linha 
8000 (instrução DATA) para as novas 
especificações e gravar novamente o 
programa, agora com um nome diferen¬ 
te de "CADASTRO". Porém, com a uti¬ 
lização do programa estruturador, esta 
tarefa fica ainda mais simples e organi¬ 
zada, além de mostrar na tela todos os 
setores alocados, conforme serão apre¬ 
sentados no programa de cadastro. 

Principais Rotinas 

2000 a 2090 — Efetua a listagem dos re¬ 
gistros 

3000 a 3430 — Efetua procura de regis¬ 
tros 

4080 a 4190 — Rotina de gravação de re¬ 
gistros (tipo seqüencial) 


4500 a 4590 — Leitura de registros do 
disquete 

4900 a 4990 — Imprime registros 
5000 a 5084 — Edição de registros e se¬ 
tores 

5100 a 5170 — Oferece opções a cada 
registro completado 

5200 a 5270 — Cancela registros da me¬ 
mória, rearranjando os demais 
6000 a 6040 — Acusa erros de operação, 
caso sejam cometidos. 

Programa Estruturador 


1 REH #**########*##### 
######*# 

2 REH * PROGRAHA ESTRUT 
URADOR # 

3 REH * AUTOR: HARIO 
FOLLI « 

4 REH « NOVEHBRO DE 

1984 * 

5 REH ***************** 
******** 

10 DIH DM7): TEXT : HOH 
E : PRINT : PRINT 
20 PRINT " ESTE E' 0 PR 
OGRAHA ESTRUT 
URADOR QUE DEFINE OS SE 
TORES DE 
CADASTRAHENTO." 

30 PRINT " 0 COHPRIHENT 
0 HAXIHO SUE 

CADA SETOR PODERÁ' TER y 
ESTA' L 

IHITADO A DEZ(IO) CARAC 
TERES." 

40 PRINT " E' INTERESSA 
NTE SUE MCE 


FINALIZE 0 NOHE DO SETO 
R COH DO 

IS PONTOSO), HAS NAO E 
f UHA OB 

RIGATORIEDADE." 

50 PRINT : PRINT : PRINT 
: PRINT "<RE 

TURN): CONTINUA": PRINT " 
(ESCAPE) 

: CANCELAR" 

60 VTAB 14: HTAB 20: GET 

Al 

62 A = ASC (Al): IF A = 
13 THEN 70 

64 IF A = 27 THEN HOHE 
: END 

66 GOSUB 500: GOTO 60 
70 HOHE : FOR V = 2 TO 1 
4 STEP 2 

72 VTAB V: HTAB i: PRINT 
V - » / 2;") 

a 

75 VTAB V: HTAB 15: PRIN 


80 VTAB V: HTAB 4: INVER 
SE : PRINT " 

NORMAL : NEXT 

90 VTAB 18: HTAB 4: PRIN 
T "ENTRAR COM 
0 TITULO OE CADA SETOR" 
100 HTAB 10! PRINT "FINA 
LIZE COM <RET 
URN>":V = 0:N = 1 
110 V = V + 2!DI = ""!TX 
= 4 

120 VTAB V! HTAB TX: GET 
XÜX = ASC 
(Xí) 

130 IF X = 21 THEN XI = 

// // 

140 IF X = 13 THEN 200 
150 IF X = 8 THEN 190 
160 IF TX = 14 THEN GOS 
UB 500: GOTO 
120 

170 VTAB V: HTAB TX: INV 
ERSE s PRINT 
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Programa Cadastro 


Xi: NORMAL 

180 DS = 01 + XlsTX = TX 
+ í: GOTO 120 

190 IF TX < =5 THEN V 
TAB V: HTAB 4 
: INVERSE : PRINT " ": GO 
SUB 500: 

V = V - 2: NORMAL : GOTO 
110 

195 TX = TX - ÜDl = LEF 
TI (D1,TX - 4 
): VTAB O: HTAB TX: INVER 
SE : PRINT " GOTO 120 
200 OKN) = Dt:N = N + 1 
210 IF V < 14 THEN 110 
220 NORMAL : POKE 34,15: 
HOME : GOSUB 
500: GOSUB 500 
230 VTAB 18: PRINT "<RET 
URN>: -CONTINU 
A": PRINT "(ESCAPE): REDE 
FINE" 

240 VTAB 18: HTAB 20: GE 

T Al:A = ASC 

(Al) 

250 IF A = 27 THEN POKE 
34,0: HOME : 

GOTO 70 

260 IF A = 13 THEN 280 
270 GOSUB 500: GOTO 240 
280 HOME : VTAB 18 
290 PRINT "ENTRE COM 0 N 
OME DO SEU NO 
VO PROGRAMA" 

300 PRINT : PRINT 

1111111717111 
7 t 17 17 7/i 

310 VTAB 20: INPUT "";F! 

320 IF Fl = "" THEN Fl = 
"SEM NOME" 

330 IF LEN (Fl) ) 25 TH 
EN GOSUB 500 
: GOTO 280 

335 POKE 34,0: HOME 
340 PRINT " SUANDO 0 CU 
RSOR RETORNAR 
, VOCE DEVE CONDUZI-LO 
AO FINAL 


DE CADA INSTRUÇÃO E PR 
ESSIONAR 
(RETURN)." 

350 PRINT * SEU NOVO PR 
OGRAMA SERA' 

GRAVADO NO DISKETTE CO 
M AS SUA 
S DEFINIÇÕES." 

360 PRINT " CONDUZINDO 
0 CURSOR ATE' 

0 FINAL DA ULTIMA LINH 
A E (RET 

URN), SEU PROGRAMA IRA' 
RODAR C 

OM OS NOVOS SETORES." 

365 PRINT : INVERSE : PR 
INT "*USE A S 
ETA => PARA CONDUZIR 0 CU 
RSOR": NORMAL 
370 FOR I = 1 TO 7 
380 IF LEN (OKI)) < 10 
THEN OKI) = 

OKI) + " GOTO 380 
390 NEXT :Ai = CHR1 (34 
):Bi = CHR1 
(44) 

400 VTAB 15: HTAB 2: PRI 
NT "8000 DATA 
"•Al;Di(i);Al:BI;Al:DK2 
>?AI?BI; 

Ai;DK3);Al:BI;Al:DK4);A 

1;B!;AI; 

DK5);At;BS;AS:DK6>;AS;B 

i:AS;DK 

7);At 

410 VTAB 19: HTAB 2: PRI 
NT "SAVE ";FI 

420 VTAB 20: HTAB 2: PRI 
NT "LOCK ";F! 

430 VTAB 21: HTAB 2: PRI 
NT "RUN" 

440 VTAB 13: PRINT 
450 PRINT CHRI (4);"L0A 
D CADASTRO" 

460 END 

500 FOR I = 1 TO 20:S = 
PEEK ( - 163 
36): NEXT : RETURN 


0 REM ***************** 
******* 

1 REM * CADASTRO: OUTUB 
RO/84 * 

2 REM * POR MARIO FOL 
LI * 

3 REM ***************** 
******* 

4 DIM DK.700) 

5 LI = "================= 


7 IF NR > 0 THEN 50 
10 TEXT : HOME : PRINT : 
PRINT LI: VTAB 22: PRINT 

Ll 

20 VTAB 3: INVERSE : PRI 
NT " **** APP 
LE II ###### OUTUBRO/1984 
**** 

VTAB 21: PRINT " **** AP 
PLE II R 

RRRRR 0UTUBR0/1984 **** * 
: NORMAL 

30 SPEED= 100: VTAB 7: H 
TAB 8: PRINT 

"PROGRAMA DE CADASTRAMENT 
0": VTAB 

8: HTAB 8: PRINT "******* 
******** 

*«***»****": SPEED= 255: 
VTAB li: 

HTAB 16: PRINT "ESCRITO" 
: VTAB 1 

2: HTAB 18: PRINT "POR": 
VTAB 13! 

HTAB 14: PRINT "MARIO FO 
LLI" 

40 FOR I = 1 TO 2000: NE 
XT : GOSUB 50 
90: GOSUB 5090: ONERR GO 
TO 6000 

50 POKE 34,0: HOME iX = 
0:Y = 0:NHR = 

1 

60 PRINT : PRINT LK VTA 
B 5: PRINT Ll 
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70 VTAB 3: PRINT * REGI 
STROS FEITOS 

REGISTROS LIVRES": VTA 
B 4: HTAB 9: PRINT "= 

: HTAB 29: PRINT "= = 

U 

80 VTAB 4: HTAB ÍO: PRIN 
T NR*: HTAB 3 
O: PRINT 50 - NR 
90 IF NR < 10 THEN VTAB 
4: HTAB 10: PRINT 0;NR 
100 IF NR > 40 THEN VTA 
B 4: HTAB 30: 

PRINT 0;50 - NR 
110 VTAB 6: HTAB 13: INV 
ERSE : PRINT 

* HENU PRINCIPAL ": NORMA 
L : VTAB 

8: PRINT TAB( 6)"INICIAR 
NOVO CA 

DASTRO.(1)": VTAB 10 

: PRINT 

TAB( 6)"C0NTINUAR A CADA 
STRAR... 

...( 2 )" 

120 VTAB 12: PRINT TAB( 
6)"LISTAR OS 

REGISTROS.(3)": V 

TAB 14: PRINT TAB( 6)"PR0 

CURAR REGISTROS. 

..(4)": VTAB 16: PRINT T 
AB( 6)"A 

CESSAR PERIFÉRICOS. 

.(5)": VTAB 18: PRINT TAB 
< 6)"ENCERRAR 0 PROCES 

SO.(6)" 

130 VTAB 21: HTAB 5: INV 
ERSE : PRINT 

" ENTRE COM 0 NUMERO SELE 

CIONADO 

": NORMAL 

140 VTAB 22: PRINT Li 

150 VTAB 13: HTAB 37: GE 

T Af:A = VAL 

(Al): IF A < 1 OR A ) 6 T 

HEN GOSUB 5090: GOTO 150 

160 ON A GOSUB 1000,1500 

,2000,3000,40 

00,7000 

170 GOTO 50 


1000 HOME : VTAB 3: PRIN 
T "#****#*#** 

***** ATENCAO *********** 
****»": GOSUB 5090: GOSUB 
5090: GOSUB 5090: SPEED= 1 
70 

1010 PRINT " - INICIANDO 
UM NOVO CADA 

STRO,TODOS OS REGISTROS 
SUE POR 

VENTURA ESTIVEREM NA MEM 
ORIA DO 

COMPUTADOR, SERÃO PERDIDO 
S.": SPEED= 255 
1020 VTAB 16: PRINT "'RE 
TURN '= INICIA 
R CADASTRO": VTAB 17: PRI 
NT " 'M '= 

MENU PRINCIPAL" 

1030 VTAB 16: HTAB 30: G 
ET Ai 

1040 IF Ai = "M" THEN 50 

1050 IF AI < > CHR1 ü 
3) THEN GOSUB 5090: GOTO 
1030 

1070 NR = i:NHR = i: ONER 
R GOTO 6000 

1090 POKE 34,0: HOME : H 
TAB 16: INVERSE : PRINT " 
REGISTRO R";NR: NORMAL : G 
OSUB 5300 

1100 FOR II = 4 TO 16 ST 
EP 2 

1110 V = II :L = K:CAD = 1 
: GOSUB 5060 

1120 FOR AP = TX TO 40: 
VTAB II: PRINT " NEXT 

1130 DI(K) = Di:K = K + 1 
: NEXT 

1140 X = i: PRINT CHRI ( 
7): GOSUB 510 
0 

1150 IF NR = 50 THEN 750 
0 

1160 RESTORE :NR = NR + 
i: GOTO 1090 

1500 IF NR = 0 THEN 1070 


1510 GOTO 1150 

2000 POKE 34,12: HOME : 
POKE 34,0 

2001 VTAB 14: PRINT Li 

2002 VTAB 16: INPUT "INI 
CIANDO EM QUA 

L REGISTRO ? ";Ai:A = VA 
L (AI) 

2003 IF NR = 0 THEN 2080 

2004 IF A < 1 OR A > NR 
THEN 2002 

2005 NS = A:T = NS * 7 - 
7: HOME : GOSUB 5300 
2010 VTAB l: HTAB 16: IN 
VERSE : PRINT 

" REGISTRO #";NS: NORMAL 

2020 FOR I = 4 TO 16 STE 
P 2 

2030 VTAB I: HTAB 15: PR 
INT DI(T);" 

U 

2040 T = T + i: NEXT 
2050 GOSUB 5100: GOSUB 5 
300:NS = NS + 

1 

2055 IF NR = 0 THEN POK 
E 34,0: HOME 
: GOTO 2080 

2060 IF NS ( = NR THEN 
2010 

2070 POKE 34,18: HOME 
2080 VTAB 20: PRINT * 'R 
EGISTROS ESGO 
TADOS’": VTAB 22: PRINT " 
PRESSION 

E GUALGUER TECLA": GOSUB 
5090: GOSUB 5090 
2090 VTAB 22: HTAB 26: G 
ET Ai: RETURN 

3000 POKE 34,14: HOME : 
VTAB 16: PRINT Li:X = 0:NH 
R = 0:CC = 0:CE = 0 
3010 VTAB 18: PRINT "PRO 
CURAR POR SUB 
STRING..(A>": VTAB 19: PR 
INT "PRO 
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CURAR POR REGISTROS..(B)" 

: VTAB 2 

0: PRINT "CANCELAR A PROC 
URA. 

.<C)"í VTAB 18: HTAB 30: 
PRINT "< 

SELECIONE)" 

3020 VTAB 20: HTAB 35: G 
ET Aí 

3030 IF Aí = "C" THEN R 
ETURN 

3040 IF Al = "B" THEN 33 
00 

3050 IF Aí < > "A" THEN 
GOSUB 5090: 

GOTO 3020 

3060 POKE 34,0: HOME : G 
OSUB 5300 

3070 J = i: FOR I = 4 TO 
16 STEP 2 

3080 VTAB I: PRINT J;")" 

:J = J + l: NEXT 

3090 VTAB 18: PRINT "BUA 

L SETOR PROCU 

RAR?" 

3100 VTAB 18: HTAB 23: G 
ET At:A « VAL (Aí) 

3110 IF A < 1 OR A > 7 T 
HEN GOSUB 50 
90: GOTO 3100 
3120 RESTORE : FOR I = 1 
TO A: REAO I 
í: NEXT 

3130 VTAB 20: HTAB 15: P 
RINT "ENTRAR 

COM 0 STRING": HTAB 15: P 
RINT "PA 
RA 0 SETOR "jll 
3150 V = 23:C! = "":CAD = 
i: GOSUB 506 
0:C1 = Oí 

3160 POKE 34,18: HOME : 
VTAB 20: PRINT "EFETUANDO 
A PROCURA": VTAB 21: PRINT 

"AGUARDE UM MOMENTO" 

3170 FOR IX = A - 1 TO 3 
50 STEP 7 


3180 IF Cl = DKIX) THEN 
CE = í: GOTO 
3210 

3185 NEXT : IF CE < >1 
THEN 3500 

3187 IF NHR = 0 THEN NH1 
= Cl + ":NAO 
REGISTRADO " 

3190 IF NHR < >0 THEN 
NHÍ = "NAO HA 
' MAIS REGISTROS" 

3200 GOSUB 5090: GOSUB 5 
090: VTAB i8: 

HTAB t: PRINT NH1: GOSUB 
5100: GOTO 3000 
3210 NS = INT (IX / 7) + 
i:NHR = 1 

3220 L = NS * 7 - 7 
3240 POKE 35,2: HOME : P 
OKE 35,24 

3250 VTAB 1: HTAB 16: IN 
VERSE : PRINT 
" REGISTRO #";NS: NORMAL 

3260 GOSUB 5300: FOR M = 
4 TO 16 STEP 

2 

3270 VTAB M: HTAB 15: PR 
INT DKL);" 

":L 

= L + 1 
: NEXT 

3280 VTAB 18: PRINT "(RE 
GISTRO ENCONT 
RADOl": GOSUB 5090 

3290 GOSUB 5100: IF IX > 
350 THEN 318 

-7 

3291 A = IX + 8 

3292 IF CC = 0 THEN 3170 

3293 GOTO 3500 

3300 VTAB 22: HTAB i: PR 
INT "ÔUAL 0 N 
UMERO DO REGISTRO ?": VTA 
B 22: HTAB 29: INPUT "";NS 

3310 POKE 34,0: HOME :NH 
R = i 


3320 VTAB i: HTAB 16: IN 
VERSE : PRINT 
" REGISTRO »";NS: NORMAL 

3330 VTAB 21: PRINT "AGU 

ARDE UM MOMEN 

TO" 

3340 IF NS > NR THEN 342 
0 

3350 L = 0: FOR I = 1 TO 
50 

3360 IF NS = I THEN 3380 

3370 L = L + 7: NEXT 
3380 GOSUB 5300: FOR I = 
4 TO 16 STEP 

2 

3390 VTAB I: HTAB 15: PR 
INT D!(L):L = 

L + i: NEXT 

3395 IF Y = 1 THEN RETU 
RN 

3400 VTAB 18: PRINT "(RE 

GISTRO ENCONT 

RADO)" 

3410 GOSUB 5090: GOSUB 5 
100: GOTO 300 
0 

3420 VTAB 23: PRINT "NAO 
HA' REGISTRO 
": GOSUB 5090 
3430 VTAB 23: HTAB 18: G 
ET Al: GOTO 3 
000 

3500 U = LEN (Cl): FOR I 
X = A - 1 TO 
350 STEP 7 

3510 IF Cl = LEFT1 (Dl( 
IX),U) THEN C 
C = i: GOTO 3210 
3520 NEXT : GOTO 3187 
4000 HOME 

4010 VTAB 2: INVERSE : P 
RINT " ## GRA 
VAR/RECUPERAR/APAGAR/IMPR 
IMIR M 

": VTAB 16: HTAB 5: PRINT 
" ENTRE 
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COH 0 NUHERO SELECIONADO 
": NORHAL 


NVERSE : PRINT " RECUPERAR 

4020 VTAB 5: PRINT TAB( 


": NORHAL : RETURN 

9)"VOLTAR AO 


4510 CLEAR : VTAB 20: HT 

HENU.(1)": VTAB 7: 


AB i: INPUT " 

PRINT TAB( 9)"GRAVAR CADA 


NOHE DO CADASTRO=? ";Fi 

STRO.(2)": VTAB 9: 


4512 IF Fi = "" THEN 451 

PRINT TAB( 9)"CHAHAR CA 


0 

DASTRO.. 


4520 VTAB 22: HTAB 6: IN 

...(3)": VTAB 11: PRINT 


VERSE : PRINT 

TAB< 9)" 


" LENDO...AGUARDE UH HOHE 

APAGAR CADASTRO.(4)": 


NTO ": NORHAL :Gi = CHRi 

VTAB 13 


(4) 

: PRINT TABÍ 9)"IHPRIHIR 


4530 PRINT Gi;"OPEN";Fi 

REGISTR 


4540 PRINT Gi;"READ";Fi 

OS..(5)" 


4550 DIH Dt(700):K = 0: 

4040 VTAB 9: HTAB 33: GE 


ONERR GOTO 4 

T.Alt PRINT CHRi <i):A = 


580 

VAL (At):Gi = CHRi (4) 


4560 INPUT Di(K) 

4050 IF A = 2 THEN GOSU 


4570 K = K + i: GOTO 4560 

B 4080: GOSUB 

4800: GOTO 4090 


4580 NR = INT <K / 7): I 

4055 IF A = 3 THEN GOSU 


F NR = 1 THEN 

B 4500: GOSUB 


NR = 0 

4800: GOTO 4510 


4590 NS = NR:K = K - 1: G 

4060 IF A = 4 THEN GOSU 


OTO 5 

B 4600: GOSUB 


4600 VTAB 18: HTAB 16: I 

4800: GOTO 4610 


NVERSE : PRINT " APAGAR ": 

4064 IF A = 5 THEN 4900 


NORHAL : RETURN 

4068 IF A = 1 THEN 50 


4610 VTAB 20: HTAB i: IN 

4070 GOSUB 5090: GOTO 40 


PUT "NOME DO 

40 


CADASTRO=? ";Fi 

4080 VTAB 18: HTAB 16: I 


4620 IF Fi = "" THEN 461 

NVERSE : PRINT " GRAVAR ": 


0 

NORHAL : RETURN 


4630 VTAB 22: HTAB 5: IN 

4090 VTAB 20: HTAB i: IN 


VERSE : PRINT 

PUT "NOHE DO 


" APAGANDO...AGUARDE UH H 

CADASTRO=? ";FI 


OHENTO " 

4092 IF Fi = "" THEN 409 


: NORHAL 

0 


4640 PRINT Gi;"DELETE"Fi 

4100 VTAB 22: HTAB 5: IN 


4650 GOTO 4000 

VERSE : PRINT 


4800 POKE 35,17: HOHE 

" GRAVANDO...AGUARDE UH H 


4810 PRINT Gl;"CATALOG" 

OHENTO " 


4820 POKE 35,24: RETURN 

: NORHAL 

4110 PRINT Gi;"OPEN";Fi 


4900 HOHE : VTAB 2: INPU 

4120 PRINT Gi;"DELETE";F 


T "OUAL REGIS 

i 


TRO IHPRIHIR ? "•IHPi:IHP 

4130 PRINT Gi;"OPEN";Fi 


= VAL 

4140 PRINT GÍ;"WRITE";Fi 


(IHPi) 

4150 FOR I = 0 TO K 


4910 IF IHP < 1 OR IHP > 

NR THEN 4000 

4160 PRINT Di(I): NEXT 

4170 PRINT Gi:"CLOSE";Fi 


4920 HOHE :IHP = IHP * 7 

_ 7 

4190 GOTO 50 


“ / 

4930 PRINT Gi:"PRtti": PR 

4500 VTAB 18: HTAB 14: I 


INT : PRINT 


4940 RESTORE : FOR I = í 
TO 7 

4950 READ IHPi 
4960 HTAB 2: PRINT IHPi; 
: HTAB 13: PRINT DS(IHP) 
4970 IHP = IHP + i: PRINT 
: NEXT 

4980 PRINT Gi;"PR#0" 

4990 GOTO 4000 
5000 IF NHR = 0 THEN VT 
AB 22: HTAB 2 
O: PRINT "(NADA EFETUADO) 
GOSUB 

5090: GOSUB 5090: FOR I = 
í TO 50 

O: NEXT : RETURN 
5005 POKE 34,Í8: HOHE : 
POKE 34,0: IF 
X = i THEN NS = NR 
5010 L = NS * 7 - 8:J = 1 
:V = 0: FOR I 
= 4 TO 16 STEP 2: VTAB I 
: HTAB 1 

: PRINT J;")":J = J + 1: 
NEXT 

5020 VTAB 20: HTAB i: PR 
INT "OUAl SET 
OR MODIFICAR ?" 

5030 VTAB 20: HTAB 24: G 
ET Aí:A = VAL (Ai! 

5040 IF A < 1 OR A > 7 T 
HEN GOSUB 50 
90: GOTO 5030 
5050 V = 2: FOR I = 1 TO 
A:V = V + 2:L 
= L + i: NEXT :CAD = 0 
5060 FOR I = 15 TO 38: V 
TAB V: HTAB I 
: PRINT CHRS (127): 
NEXT 

5070 FOR I = 38 TO 15 ST 
EP - i: VTAB 
V: HTAB I: PRINT CHRí (1 
27);"'": 

NEXT : VTAB 0: HTAB 15: 
PRINT "’ 

U 

5072 TX = 15:DI = "" 

5074 VTAB V: HTAB TX: GE 

T Xi:X = ASC 

(Xi): IF X = 21 THEN XS = 

// 1H 

5076 IF X = 13 AND CAD = 
1 THEN RETURN 

5077 IF X = 13 AND CAD = 
0 THEN DHL) 

= Oi: FOR AP = TX TO 40: 
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VTAB V: 

PRINT " "•: NEXT : GOSUB 
5100: RETURN 

5078 IF X = 8 THEN 5086 
507? IF TX = 40 THEN GO 
SUB 5090: GOTO 5074 

5080 IF X = 44 THEN Xi = 

».» 

5081 IF X = 58 THEN Xí = 

//_// 

5082 VTAB V: HTAB TX: PR 
INT Xi 

5084 Oi = Di + Xi:TX = TX 
+ í: GOTO 50 

74 

5085 GOSUB 5100: RETURN 

5086 IF TX < = 16 THEN 
VTAB V: HTAB 

15: PRINT GOSUB 5090 

: GOTO 5 

072 

5088 TX = TX - i:Di = LE 
FTi (Dl r TX - 

15): VTAB V: HTAB TX: PRI 
NT GOTO 5074 
5090 FOR IJ = 1 TO 20:P 


= PEEK ( - 1 
6336): NEXT : RETURN . 

5100 POKE 34,18 

5110 VTAB 20: PRINT "’RE 

TURN'= CONTIN 

UAR ": VTAB 21: PRINT " 

'H’= HEN 

U PRINCIPAL": VTAB 22: PR 
INT "'A' 

= APAGAR": VTAB 23: PRINT 
" 'E '= E 
DITAR" 

5120 VTAB 20: HTAB 21: G 
ET AI 

5130 IF AI = CHRI <13i 
THEN RETURN 

5140 IF AI = "M" THEN 50 

5150 IF AI = "A" THEN G 
OSUB 5200: RETURN 
5160 IF AI = "E" THEN G 
OSUB 5000: RETURN 
5170 GOSUB 5090: GOTO 51 
20 

5200 IF NHR = 0 THEN VT 
AB 22: HTAB 2 


0: PRINT "(NADA EFETUADO) 
": GOSUB 

5090: GOSUB 5090: FOR I = 
1 TO 50 

0: NEXT : RETURN 
5210 VTAB 22: HTAB i3: P 
RINT "---> CO 
NFIRHE TECLANDO ’A T "; CHR 
I (7) 

5220 VTAB 22: HTAB 39: G 
ET AI 

5222 VTAB 22: HTAB 13: P 
RINT " 

H 

5224 IF AI ( ) "A" THEN 
RETURN 

5225 IF K = 7 THEN NR = 
0:K = 0: RETURN 

5230 POKE 34.0: HOHE 
5240 VTAB 20: PRINT "AGU 
ARDE UM MOMEN 
TO...": IF X = 1 THEN NS 
= NR 

5250 L = NS * 7 - 7: FOR 
I = L TO NR * 

8 

140 


r -\ 


TENTE ESTA 


1 ONERR GOTO 5 

5 INPUT "DURACAO (0 A 255, DUAS VEZES 
)';C,D 

10 A = PEEK (38):B = PEEK (39) 

15 IF A = i THEN A = 48: IF B = i THEN 
B = 0 

20 IF A = 0 THEN A = Ü IF B = 48 THEN 
B = 1 

30 SOUNO 8,C TO A,D 
40 GOTO 10 


_ / 


FAÇA DE SEU MICRO “SINCLAIR” 
UM PROFISSIONAL 



De-lhe um teclado 
ôpeed e ele terá 



□ Maior dinamismo na entrada de dados 

□ Vida útil maior que 2 milhões de operações 

□ Um TECLADO profissional com switches individuais e 
acondicionamento mecânico 

□ Gabinete em fiber-glass que acondiciona o micro 


SPEED ELETRO ELETRÔNICA LTDA. 

Rua I (i) N.° 395 - Bernardo Monteiro - Contagem - MG 
Tel: Escrit. (031) 463-3171 Fábrica: (031) 351-1887 


REVENDEDORES AUTORIZADOS: (011) 522-4637; (021) 270-9197; 
(081) 326-8814; (0514) 491-323; (084) 231-1055; (091) 223-6319 




















Israel Teixeira 



Ana Lúcia de Alcântara 

Colaboraram Solange Aparecida de Menezes 
em São Paulo e Fátima França no Rio de 
Janeiro. 


O USO DO COMPUTADOR 
A SOCIEDADE E O PROFISSIONAL 



"É necessário chegar-se à real 
concepção de informática pa¬ 
ra se pensar na conscienti¬ 
zação do uso de seu instru¬ 
mento — o computador". 
Henrique Costábile, presiden¬ 
te daSUCESU/SP. 


O computador tem sido apresen¬ 
tado ao indivíduo como um instrumento 
solucionador dos problemas enfrenta¬ 
dos pelos diversos setores da sociedade, 
sempre precedido de argumentos como: 
"o computador possibilita a redução de 
tarefas improdutivas", ou então: "o 
computador dá ao homem um maior 
espaço de tempo para que este se dedi¬ 
que mais ao seu lazer". Até que ponto 
estas considerações são verdadeiras é a 
questão principal. Muito pouco tem-se 
falado a respetio da conscientização do 
uso correto do computador, tanto pelo 
usuário final — o cidadão comum — 
quanto pelo profissional dos centros de 
processamento de dados. 

A realidade da "sociedade de infor¬ 
mação" já se configura no Brasil e os 
indivíduos se vêem à frente da influência 
do computador em todas as suas ativi¬ 
dades. Diante deste fato, reacende-se 
um fator muito importante: as pessoas 
estão utilizando o computador, se de¬ 
frontam com ele em todos os setores da 
sociedade e, finalmente, a sua vida está, 
de certa forma, sendo influenciada pelo 
uso cada vez mais constante do novo 
instrumento de trabalho. Neste ponto, 
um tópico tem levantado discussões e 


gerado alguns estudos. A principal preo¬ 
cupação existente em todos eles é quan¬ 
to a conduta ético-moral do indivíduo 
frente à nova tecnologia. 

Segundo Henrique Costábile, dire¬ 
tor do Citibank e presidente da SUCESU 
— Sociedade dos Usuários de Compu¬ 
tadores e Equipamentos Subsidiados de 
São Paulo, para se chegar a uma con¬ 
clusão a respeito desta problemática é 
necessário pensar-se a respeito da real 
concepção da informática. Para ele, é 
preciso encará-la como um meio e não 
como um fim, pois sua principal base de 
sustentação é a busca do desenvolvi¬ 
mento econômico do mundo e da felici¬ 
dade da humanidade, eliminando e fa¬ 
zendo, de maneira mais rápida, as tare¬ 
fas repetitivas. Porém, conforme acres¬ 
centou, a tecnologia de informática tem 
sido encarada sempre como um desafio 
técnico a ser vencido e geralmente é im¬ 
plantada para solucionar problemas, 
com o objetivo de tornar determinadas 
tarefas — que até então estavam sendo 
feitas manualmente — mais eficientes, 
diminuindo o seu custo operacional. 

Esta tendência apontada por Costá¬ 
bile tem estado presente nos diversos 
setores da economia que passaram a 


adotar a nova tecnologia. Como exem¬ 
plo deste fato, ele citou o caso da otimi¬ 
zação do processo de controle da arre¬ 
cadação do imposto de renda. "Na in¬ 
trodução da automatização no processo 
de arrecadação houve preocupação ape¬ 
nas com o aspecto técnico do sistema, 
ou seja, otimizou-se o processo, para 
torná-lo o mais perfeito possível", acres¬ 
centou. O sistema, segundo Costábile, 
é perfeito, porém foi implantado em ci¬ 
ma da concepção, existente em todos 
os sistemas, que está baseada sempre 
no controle de alguma coisa, levando 
em conta apenas aspectos técnicos do 
problema. "Neste caso", disse, "não foi 
considerado o aspecto social, dentro 
da visão de que o sistema está prestan¬ 
do um serviço público ao cidadão com o 
objetivo de melhor serví-lo. 

Este é um problema de 'âmbito cul¬ 
tural', que envolve a própria formação 
étnica do nosso povo. Ê uma marca pre¬ 
sente nos diversos tipos de atividades. 
Primeiro faz-se as regras e depois se vê a 
prática. É o velho hábito de se fazer a 
norma antes da praxis", concluiu o pre¬ 
sidente da SUCESU. 

Privacidade de informações 

O Brasil possue, segundo o SEI — 
Secretaria Especial de Informática, um 
parque de cerca de 23 mil computado¬ 
res instalados, que estão sendo utiliza¬ 
dos em diversos tipos de aplicações. Os 
Bancos de Dados destes computadores 
controlam vários tipos de informações e 
algumas destas são aquelas que dizem 
respeito à vida pessoal do indivíduo. 
José Roberto Faria Lima, diretor da Sis- 
co Computadores, divide estas informa¬ 
ções em setores: administrativas, aque¬ 
las que não devem ser de domínio pú¬ 
blico, as estatísticas, que dizem respeito 
mais diretamente à ética do profissional 
que lida com elas; e as pessoais, àquelas 
que exigem sigilo absoluto. Estas são as 
que envolvem mais diretamente o cida¬ 
dão. E neste ponto, não existe nenhum 
tipo de legislação no Brasil que impeça 
os bancos de dados de intercambiarem 
estas informações, ou seja, que proibam 
a transferência de dados ou, como se 
denomina tecnicamente, o "transborder 
data flow", sem autorização do interes¬ 
sado. 
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Com outro ponto de vista, Frede¬ 
rico J.A. Buchman, diretor da Telemá¬ 
tica, não acredita que haja condições de 
interação entre os bancos de dados. 
"'No momento, as empresas têm como 
pontos importantes a segurança das in¬ 
formações e, se ocorre, em alguns ca¬ 
sos, vazamento das mesmas, isto se de¬ 
ve mais à ética do profissional e da pró¬ 
pria empresa, ou mesmo de sua organi¬ 
zação interna". Segundo Buchman, tec¬ 
nicamente não é possível acessar Ban¬ 
cos de Dados, principalmente por linha 
telefônica, pois existe legislação especí¬ 
fica controlada pela Telebrás — Tele¬ 
comunicações Brasileira, que proíbe es¬ 
te acesso. "Acessar Bancos de Dados, 
utilizando este método", afirmou, "só 
é possível através de linhas paralelas 
independentes e isto não existe". 

Mas, conforme avaliação do pro¬ 
fessor Jorge da Cunha Pereira Filho em 
seu livro — Computadores para Usuá¬ 
rios, volume I, as maiores perdas de da¬ 
dos que ocorrem nos sistemas de com¬ 
putação gira em torno daquelas causa¬ 
das pelo que ele chama de "profissio¬ 
nais negligentes" (cerca de 84%), se¬ 
guidas pelas causadas por vazamento de 
informações (16%), entre outras. 

O problema é bastante complexo, 
pois a todo momento surgem novos 
Bancos de Dados que, na opinião do 
advogado Cândido Mendes, assessor ju¬ 
rídico da Assespro — Associação das 
Empresas de Processamento de Dados, 
nas mãos de um governo inescrupuloso. 


podem tornar-se armas perigosíssimas. 

Na verdade, Tarcísio Cerqueira quer 
mostrar a necessidade existente no Bra¬ 
sil, de uma lei que haja de forma efi¬ 
ciente no controle de informações sobre 
um indivíduo que constem de alguns 
Bancos de Dados. Na França, Canadá, 
Suíça e outros países, já existem leis fis¬ 
cais que regulamentam os Bancos de 
Dados e permitem aos cidadãos faze¬ 
rem alterações nos dados de proprie¬ 
dade de determinadas empresas. Para 
ele, as informações contidas nestes 
Bancos deveriam ser controladas a fim 
de évitar que os cidadãos não fiquem 
subjugados, pois as leis são feitas para 
proteger as pessoas e evitar que estas se 
tornem habitantes de uma sociedade 
autoritária. 

Proteção legal aos dados 

"Não só através de Bancos de Da¬ 
dos a privacidade do indivíduo pode ser 
violada", explica o Juiz Pedro Luiz Ri¬ 
cardo Gagliardi, do Juizado de Menores 
do bairro da Penha em São Paulo. Exem¬ 
plificando, Pedro Luiz disse que uma 
simples ficha de hotel pode ser uma fon¬ 
te de informações perigosa se cair nas 
mãos de pessoas de má fé. Mas, segun¬ 
do ele, o que realmente desencadeou a 
violação da privacidade como um pro- 
bema foi a utilização de computadores. 

Pedro Gagliardi defendeu a tese 
"Aspectos penais da violação da priva¬ 
cidade pela moderna tecnologia dos 


Um estudo do código 

Durante sua atuação como membro da APPD — Associação dos Profissio¬ 
nais de Processamento de Dados, Nilson Siqueira, atualmente Analista de Sistemas 
da Itaudata, elaborou um estudo com vista à estruturação de um código de conduta 
moral para sua categoria profissional. O principal objetivo deste código, conforme 
ressaltou, seria indicar as normas de conduta moral que deveriam inspirar as ativi¬ 
dades dos profissionais, e regular suas relações com a classe, os poderes públicos e 
a sociedade. Assim sendo, baseando-se em códigos de ética de outras categorias 
profissionais, Nilson chegou a alguns tópicos que publicamos a seguir: 

Segundo o estudo, são deveres do profissional de Processamento de Dados: 

— Interessar-se pelo bem da sociedade e, com tal finalidade, contribuir com 
seus conhecimentos, capacidade e experiência; manter sigilo sobre o que souber em 
razão de suas atividades e de sua profissão; impedir que a privacidade dos cidadãos 
seja invadida; 

— Conservar independência técnica na orientação dos serviços sob sua res¬ 
ponsabilidade; recusar cargos, empregos ou funções, caso tenha consciência de 
que não dispõe de suficientes recursos técnicos para bem desempenhá-los; denun¬ 
ciar a prática de qualquer atividade profissional que contrarie o código; esclarecer 
ao leigo, a forma de atuação da área de informática. 

São deveres do Profissional de Processamento de Dados , em relação a classe: 

— Prestar apoio moral, intelectual e material às entidades de classe; desem¬ 
penhar cargo diretivo nas entidades de classe, a não ser que circunstâncias espe¬ 
ciais justifique a sua recusa; acatar as resoluções regularmente votadas pelas enti¬ 
dades de classe; não se aproveitar quando do desempenho de qualquer função dire¬ 
tiva em entidade representativa da classe, em beneficio próprio. 

Das disposições finais: 

— A fiscalização e julgamento de infrações a este Código, decorrentes do 
exercício da atividade do profissional que atua em P.D., é inerente à associações de 
classe existentes, às quais caberá, por intermédio de seus Conselhos de Ética , apli¬ 
car as sanções cabíveis em cada caso. 

Este estudo, porém, não foi levado avante pois ficou em teorias e no arquivo 
de Nilson. 


computadores", em 1981, e até hoje seu 
trabalho é vanguardista. Pouco se tem 
feito ou discutido a respeito no Brasil, 
embora o tema seja comum em outros 
países. Para o Juiz, a violação de infor¬ 
mações sigilosas é inevitável: "antes a 
violação era feita pelo próprio governo 
na defesa do Estado. Mas hoje, confor¬ 
me ilustrou, o que se pretende é criar 
uma lei de privacidade em defesa do ci¬ 
dadão que, por conseguinte, é objeto do 
Estado. 



Israel Teixeira 


Mas mesmo para aqueles que se 
sentem desprotegidos judicialmente, o 
jurista informa que já existem formas le¬ 
gais em vigor que podem defendê-los, 
mesmo não sendo dirigidas especifica¬ 
mente aos problemas causados pelos 
Bancos de Dados. Como exemplo, o 
advogado cita o artigo 153 da atual 
Constituição Federal que trata das ga¬ 
rantias e direitos do indivíduo. Ele veta a 
violação de correspondências e ligações 
telefônicas e, neste caso, poderia se in¬ 
cluir a violação de informações pes¬ 
soais. O que precisa ser feito, segundo 
Gagliardi, é apenas acrescentar um pa¬ 
rágrafo a mais neste artigo, "de forma 
que tenhamos assegurada a possibili¬ 
dade do cidadão consultar qualquer 
Banco de Dados, manual ou eletroni¬ 
camente, para saber o que existe a seu 
respeito", ressaltou. 

Como se proteger? 

"As informações protegidas serão 
apenas referentes à pessoa e quais as 
informações que merecem proteção se¬ 
rão determinadas por uma lei federal, 
através de um carimbo de proteção. 
Dentro desta mesma lei haverá um pará¬ 
grafo que dará direito ao cidadão ter 
acesso às suas próprias informações, 
podendo até corrigí-las em caso de er¬ 
ros. Essas correções serão feitas através 
da justiça que ouvirá as duas partes (o 
denunciante e o informante) e tomará a 
decisão", destacou o Juiz Gagliardi. 

Já existem no Congresso Nacional 
alguns projetos de lei que prevêem a 
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proteção às informações concernentes à 
vida do cidadão. Entre estes, destacam- 
-se o da deputada Cristina Tavares, com 
32 artigos. Em alguns outros está pre¬ 
visto que o encarregado do Banco de 
Dados será o responsável pela guarda e 
coleta de informações. Prevê-se tam¬ 
bém nestes projetos, que a informação 
tenha proteção no Código Penal e a pes¬ 
soa que se sinta ofendida poderá levar 
as provas à polícia e será aberto então, 
um inquérito policial. 

Crimes contra o cidadão 

Ultimamente a quebra de sigilo tem 
atingido proporções muito mais graves, 
chegando a prejudicar "o dono" das in¬ 
formações. Marco Antonio Laurindo, di¬ 
retor da Informarket Consultoria, foi um 
dos atingidos com a informação indis¬ 
criminada de dados sigilosos. Recente¬ 
mente ele recebeu um telefonema de 
uma empresa lhe cobrando a prestação 
atrasada de um apartamento que ele se¬ 
quer tinha conhecimento. "Alguém teve 
acesso ao meu cadastro de informa¬ 
ções, em algum lugar que eu não sei 
qual é, e não sei qual a intenção desta 
pessoa", disse ele. 

Além deste existem outros casos 
que se tornam comuns hoje em dia. Um 
destes casos foi retratado por Nilson Si¬ 
queira, Analista do Sistemas da Itaú- 
data: a leitura de grafia, através de car¬ 
tões perfurados. "Isto aconteceu em um 
grande shopping center de São Paulo. 
0 sujeito, conhecedor da tecnologia, 
propagava a leitura da grafia do indiví¬ 
duo, realizada segundo ele, através de 
cartões perfurados que forneciam os re¬ 
sultados quanto a personalidade do ci¬ 
dadão. Este caso, a meu ver é um abuso 
muito grande à ignorância da pessoa 
que não tem conhecimento de como 
funciona um computador". 

Estas práticas criminosas para Mu¬ 
rilo Pereira, diretor da Coopers & Ly- 
brand, ligada à área de auditoria, ten¬ 
dem a se expandir com o passar dos 
anos e, no presente momento, não se 
tem como combatê-las judicialmente. 
Pode-se contar apenas com o bom sen¬ 
so das empresas preocupadas em pro¬ 
teger o cadastro de seus clientes e fun¬ 
cionários. Ele vê estes acontecimentos 
mais como um problema institucional 
que de processamento de dados. 

O guardião das informações 

Henrique Costábile, presidente da 
SUCESU/SP, acredita que a responsa¬ 
bilidade maior quanto a "guarda" dos 
dados dos sistemas de computação ca¬ 
be ao profissional de P & D. Ele acredita 
que a discussão sobre um código de éti¬ 
ca afeta muito mais ao Analista de Sis¬ 
temas, pois é ele que elabora os siste¬ 
mas. Estes, para Costábile, devem levar 
em conta principalmente a conservação 
das informações e a privacidade dos da¬ 
dos pessoais do cidadão. 

Neste aspecto, Nilson Cerqueira, 
Analista de Sistemas, ressalta o fato de 
que, a maioria dos profissionais de sua 


categoria mantêm vínculo empregatício 
com a empresa para quem trabalham e 
que, por este motivo, estão sujeitos a 
pressões e à política adotada pela mes¬ 
ma. Nilson ressaltou que para o profis¬ 
sional seguir uma ética de conduta mo¬ 
ral nesta área é necessário que haja pro¬ 
teção ao mesmo, dada pelas associa¬ 
ções ou sindicatos. "O analista é aquele 
que sabe como fazer e não o que fazer. 
Para isto, a empresa já possue a estru¬ 
tura. Existe no Brasil muito pouca cons¬ 
cientização quanto a ética ou postura 
profissional. Isto se deve principalmente 
ao não reconhecimento da profissão que 
é o primeiro caminho para se alcançar 
esta conscientização", concluiu. 

José Maria Sobrinho, acredita tam¬ 
bém que o código de ética para os pro¬ 
fissionais de processamento de dados 
deve levar em conta o fator "proteção 
ao Analista". Sobrinho crê que a elabo¬ 
ração de um código de ética deve espe¬ 
cificar principalmente os limites de atua¬ 
ção e responsabilidade do profissional. 
Òutro ponto destacado por ele é a não 
presença, nos currículos escolares — fa¬ 
culdades e universidades — de disci¬ 
plinas que se direcionem à formação éti¬ 
co-moral e à conscientização dos futu¬ 
ros projetistas e processadores de siste¬ 
mas de computação". 

O advogado Tarcísio Cerqueira cita 
ainda outros aspectos. Um destes, é a 
proliferação de cursinhos livres de pro¬ 
gramação. Segundo ele, os grupos res¬ 
ponsáveis pelo aparecimento destes cur¬ 
sos, além de não levarem em conta o 
perfil ético do profissional possuem pou¬ 
co embasamento técnico e fazem uma 
formação em massa de mão-de-obra 
dita "capacitada", para exercer as diver¬ 
sas funções no ambiente de P. D. 

Mas Tarcísio Cerqueira acredita que 
o profissional já está caminhando em 
direção à conscientização de seu papel 
dentro da sociedade. Conforme afir¬ 


mou, há dez anos aproximadamente, 
quem trabalhava nos CPDs era conside¬ 
rado como um integrante do "Olimpo" 
empresarial, pois o grupo era quem di¬ 
tava as normas de informatização deste 
ou daquele setor, ditando as regras. 
"Hoje", disse ele, "isso mudou". 0 sis¬ 
tema está se descentralizando e o ana¬ 
lista de sistema já é uma figura mais co¬ 
mum dentro das empresas que estão se 
informatizando. Suas atribuições estão 
sendo divididas com os demais mem¬ 
bros que atuam naquele setor. "Assim 
mesmo", garante, "informatizar uma fir¬ 
ma, um setor é algo muito delicado e o 
analista, muitas vezes, tem de "fazer" 
um pouco de psicologia para vencer as 
resistências ao "novo". 

Outro ponto que para o Juiz está 
mudando dentro dos CPDs é a mentali¬ 
dade dos novos usuários. "As empresas 
que estão se informatizando" — expli¬ 
cou, "já começam a formar uma cons¬ 
ciência da necessidade dos analistas dei¬ 
xarem seus "gabinetes" para sairem em 
busca de maiores dados sobre aquele 
universo que passará a fazer parte de 
seus programas. Ele disse ainda, que o 
técnico hoje tem muito mais vivência e 
autonomia para elaborar novos progra¬ 
mas. "É preciso sair a campo", desta¬ 
cou. 

Mesmo com este progresso, Padi- 
Iha acredita que ainda há muito por 
fazer pois os profissionais de proces¬ 
samento de dados estão, apesar dos 
avanços de tecnologia nacional, traba¬ 
lhando com máquinas e programas ela¬ 
borados por outros povos, com culturas 
diferentes. "É preciso", frizou, "que os 
usuários sejam mais exigentes com 
aqueles computadores que vão utilizar e 
também com os softwares, a fim de que 
contribuam para um melhor e mais rápi¬ 
do aperfeiçoamento de uma política na¬ 
cional de informática que hoje enga¬ 
tinha". 


Israel Teixeira 
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Programas e proteção 



"A pirataria é um problema existente na 
maioria dos países e para combatê-la é 
necessário utilizar-se de processos judi¬ 
ciais". John Franklin Arce, diretor de in¬ 
formática do SENAI. 


A discussão sobre a conscientização do uso do computador na sociedade 
não envolve apenas a privacidade de informações e segurança dos bancos de dados. 
Esta é uma questão muito ampla e atinge todos os aspectos que circundam este 
uso. Um destes aspectos refere-se às rotinas processuais do computador como por 
exemplo, o programa. Neste ponto tem surgido muitos debates que se voltam prin¬ 
cipalmente à má utilização e segurança dos programas — um fator bastante conhe¬ 
cido como pirataria —, cujos autores dos mesmos não têm como se protegem. 

Conforme ressaltou John Franklin Arce, diretor de informática do SENAI, 
este é um problema igual em todos os demais países, inclusive com processos judi¬ 
ciais. 

Nelson Costa, analista de sistema da BBS — Biblioteca Brasileira de Soft¬ 
ware vê o problema da pirataria dentro de um ponto de vista próprio. Para ele, a 
indústria de informática no Brasil começou errada, pois colocou-se a hardware à 
venda sem o mínimo suporte. Este processo, conforme afirmou, continua até hoje e 
tem colhido o desenvolvimento de programas nacionais. 

Para Frederico Buchman, diretor da Telemática, este é um problema do có¬ 
digo civil, pois ele acredita que copiar um programa nada mais é do que um "ato de 
roubo". Neste aspecto, a legislação deve ser bastante rigorosa, para punir indiví¬ 
duos que se aproveitam do trabalho do companheiro, — no caso do CPD — que 
muitas vezes levou anos para desenvolver um sistema, ou programa, e passam para 
a frente com a maior facilidade". Ele fez questão de ressaltar: "a lei deve ser ampla 
para combater de forma sistemática o problema". 

A respeito do problema, José Maria Sobrinho, diretor de informática da Sa¬ 
dia lembrou a Lei de Software que já circula no Congresso Nacional e que prevê a 
punição no caso de "copiagem". 

Marco Antonio Laurindo, diretor da Informarket Consultoria, destacou dois 
aspectos que devem ser levados em conta no combate à pirataria: o técnico e o judi¬ 
cial. No plano técnico é muito difícil evitá-la devido a habilidade dos infratores. No 
plano judicial, conforme opinião do Luiz Pedro Luiz Ricardo Gagliardi será incluído 
um artigo no Código Penal na lei de privacidade e o infrator será condenado por 
furto: 

— Mesmo não havendo ainda uma lei protetora, há leis similares que tam¬ 
bém podem ser aplicadas em caso de pirataria ou acesso indevido à informação. É o 
caso do artigo 155 da atual Constituição que diz: "subtrair para sí ou para outrem 
coisa alheia é considerado furto". Levando-se em conta que um programa é proprie¬ 
dade do fabricante pirateá-lo seria um furto. E a pena seria a mesma aplicada nos 
casos de furto de energia elétrica. 


QUEBRA-CABEÇA 


Sem FOR, sem IF e sem (! 

Renato da Silva Oliveira 


Numa das últimas cartas que recebi 
do Nabor, ele me relatou um fato bas¬ 
tante interessante, que acabou sugerin¬ 
do o quebra-cabeça desta edição. Em 
janeiro deste ano, ele e a Dinorá deixa¬ 
ram a Inglaterra no late particular do 
Nabor. 

Durante a viagem, o microcompu¬ 
tador que ele usava para calcular a rota 
caiu no chão e acabou sendo pisoteado 
acidentalmente pela Dinorá. Após o 
desastre, as instruções FOR e IF, e tam¬ 
bém o caractere ( não estavam funcio¬ 
nando. Isso praticamente inutilizava to¬ 
dos os programas que deveriam ser in¬ 
troduzidos. 

O Nabor conta que foi a própria Di¬ 
norá quem encontrou a solução para o 


problema. 

A noite, após beber bastante suco 
de morangos silvestres do Ramarujan, a 
Dinorá mostrou a Nabor um programa 
de apenas sete linhas que preenchia to¬ 
talmente a tela com asteriscos *, depois 
ele a limpava e começava tudo outra 
vez. Dinorá havia criado um laço poten¬ 
cialmente infinito no qual estava inserida 
implicitamente uma estrutura-de deci¬ 
são! O mais surpreendente é que o pro¬ 
grama da Dinorá estava totalmente em 
BASIC e ela não usou sequer o PEEK ou 
o POKE! 

Com esse programa, Dinorá mos¬ 
trou que os micros tipo TK-85 podem to¬ 
mar implicitamente decisões, mesmo 
sem as instruções FOR e IF, e mesmo 


sem o uso lógico dos parêntesis. 

0 Nabor pode, então, introduzir 
seus programas, alterando-os ligeira¬ 
mente de modo que só utilizassem as 
instruções que estavam funcionando. 

O quebra-cabeça deste mês consis¬ 
te em fazer um programa que produza o 
mesmo efeito que o da Dinorá: 

1. Preencha a tela, posição por po¬ 
sição, com asteriscos. 

2. Após preencher aos 704 posi¬ 
ções regulares de impressão, limpe o 
vídeo. 

3. Recomece tudo novamente a 
partir do item 1. 

Claro que as instruções FOR e IF 
não devem ser utilizadas e nem os pa¬ 
rêntesis! 
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INTRODUÇÃO AOS 
INTERPRETADORES 
SEGUNDA PARTE 



José Eduardo Moreira 
Wilson José Tucci 


No artigo anterior, estudamos 
um pouco da arquitetura da HP-33, 
bem como apresentamos rotinas de 
implementação para: 

• apresentação da pilha operacional 

• as 4 operações básicas ( + 

/) 

• oCLX 

• o ENTER 

Apresentaremos agora a rotina 
para entrada de dados. 

As teclas para a entrada de da¬ 
dos são as teclas dos dígitos de 0 a 
9, o ponto a tecla EEX (que per¬ 
mite a entrada de expoente de 10), e 
a tecla CHS que permite negativar o 
número que está sendo introduzido. 
Apertando qualquer outra tecla indi¬ 
camos o fim do número e executa¬ 
mos a operação indicada pela tecla. 

A seguinte sub-rotina faz a en¬ 
trada de números: 


20000 REM ENTRADA DE DA 
DOS 

20010 BI = " 

20020 L = 0 
20030 El = " 

20040 ENTROU = 0 
20050 P = 0 

20060 VTAB 18: HTAB 10 
20070 PRINT SPC( 20): H 


TAB 10 


20230 

20080 GET Al:A = ASC (A 


20200 NX = UAL (Bl) * 10 

1) 


A UAL (El) 

20090 IF A = 8 THEN 5000 


20210 ENTROU = 1 

20220 G0T0 5000 

20100 IF Al = "C" AND BI 


20230 IF A < 46 0R A = 4 

= "" THEN 50 


7 0R A > 57 THEN 5000 

00 


20240 IF Al = V THEN 2 

20110 IF Al < > "C" THE 


0290 

N 20160 


20250 IF L = 10 THEN PR 

20120 IF LEFT1 (Bl,í) = 


INT CHRl (7) 

THEN BI = RIGHT1 (BI 


?: G0T0 20080 

, LEN (Bl) - 1): G0T0 2014 


20260 L = L + 1 

0 

20130 Bl = •-* + Bl 


20270 Bl = Bl + Al: HTAB 

10: PRINT Bl; 

20140 HTAB 10: PRINT SP 


20280 G0T0 20080 

C< 20)?: HTAB 


20290 IF Al = AND P 

10: PRINT Bl? 


THEN PRINT CHRl (7)?: G0 

20150 G0T0 20G80 


T0 20080 

20160 IF Al = "E* AND Bl 


20300 IF Al = THEN P 

= "" THEN Bl 


= l: IF Bl = 

= *1.": G0T0 20340 


•• THEN Bl = "0" 

20170 IF Al = "E" THEN 2 


20310 Bl = Bl + Al 

0340 

20180 IF A = 13 AND Bl = 


20320 HTAB 10: PRINT Bl; 

"" THEN 5000 


20330 G0T0 20080 

20340 REH ENTRADA D0 EX 

20190 IF A < ) 13 THEN 


POENTE 
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20350 HTAB 25 
20360 El = "00" 

20370 HTAB 25: PRINT SP 
C( 3)-: HTAB 
25: PRINT ES; CHRI (8); 
20380 GET AI:A = ASC (A 
I) 

20390 IF Al = "E" THEN 
PRINT CHRI ( 

7)-: GOTO 20370 
20400 IF Al < > "C" THE 
N 20440 

20410 IF LEFTl <El,i) = 
THEN El = RIGHTl (El 
,2): GOTO 20370 
20420 El = + El 

20430 GOTO 20370 
20440 IF A < >13 THEN 
20480 

20450 NX = VAL (Bl) * 10 
* VAL (El) 

20460 ENTROU = 1 
20470 GOTO 5000 
20480 IF A ( 46 OR A = 4 
7 OR A > 57 THEN 5000 
20490 IF At = THEN 
PRINT CHRI ( 

7> ; : GOTO 20370 
20500 Eli = RIGTHKEl,i) 

+ Al 

20510 IF LEFTl (ES r i) = 
THEN Eli 
= + Eli 

20520 El = Eli 
20530 GOTO 20370 


A função EEX foi associada è 
tecla "E" e a função CHS à tecla 
"C". 

Vamos aproveitar e implemen¬ 
tar também algumas funções trans¬ 
cendentais da HP-33. Abaixo segue 
uma lista de funções, acompanhada 
da descrição da ação de cada uma 
delas. 

SIN X : guarda o conteúdo de X em 
LX, calcula sen(X), guarda 
emX; 

COS X: guarda o conteúdo de X em 
LX, calcula cos(X), guarda 
em X; 


TAN X: guarda o conteúdo de X em 
LX, calcula tg(X), guarda 
emX; 

LN X : guarda o conteúdo de X em 
LX, calcula ln(X), guarda 
emX; 

LOG X: guarda o conteúdo de X em 
LX, calcula log(X), guarda 
em X; 

Y : guarda o conteúdo de X em 
LX, calcula Y, guarda em X, 
baixa a pilha operacional. 

As implementações dessas fun¬ 
ções são apresentadas abaixo: 


10400 

REH * 

10410 

LX = X 

10420 

Y = Y A X 

10430 

Y = Z:Z = T 

10440 

RETURN 

10500 

REH SIN 

10510 

LX = X 

10520 

X = SIN (X) 

10530 

RETURN 

10600 

REH COS 

10610 

LX = X 

10620 

X = COS (X) 

10630 

RETURN 

10700 

REH TAN 

10710 

LX = X 

10720 

X = TAN (X) 

10730 

RETURN 

ÍOBOO 

REH LN 

10810 

LX = X 

10820 

X = LOG (X) 

10830 

RETURN 

10900 

REH LOG 

10910 

LX = X 

10920 

X = LOG (X) / LOG 

(10) 


10930 

RETURN 


No próximo número apresenta¬ 
remos a rotina da linha 5000, que re¬ 
conhece o comando selecionado e 
dispara sua execução. 


-. 

A MANIA DE SER 
INTELIGENTE 


Micro Computadores Li¬ 
nha TK — Temos TK-83, 
TK-85 e TK-2000. Também 
temos expansões de memó¬ 
ria, Joysticks e programas. 

Micro Computadores Li¬ 
nha Apple — Temos os 
preços mais baixos da cida¬ 
de. Trabalhamos com todos 
os tipos de expansão e peri¬ 
féricos. Grande quantidade 
de programas de jogos e 
aplicativos. Temos também 
Joystick analógico para 
Apple. 

Disquetes — Todas mar¬ 
cas de disquetes a preço de 
atacado. 

Literatura — Os melhores 
livros e revistas sobre a in¬ 
formática e video games. 


«KttO / BMH 

Al. Santos, 847 
Fone: 283-5376 
São Paulo 


VENHA NOS VISITAR E 
CONHEÇA A NOVA MANIA 
QUE ESTÁ CONTAGIANDO 
A CIDADE. 

_ J 























Curso de Assembly 6502 
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Aula III 

Mais instruções do 




% 


Veremos nesta lição algumas instruções do 6502 
e faremos nossos primeiros programas. 



Gustavo Egídio de Almeida 


STA — Armazena o valor do acumulador na memória 
(tabela I). 



TABELA 1 
Instruções STA 


Código usado 

Formato 

Bytes usados 

85 

STA OPER 

2 

95 

STA OPER, X 

2 

8D 

STA OPER 

3 

9D 

STA OPER, X 

3 

99 

STA OPER, Y 

3 

81 

STA (OPER,X) 

2 

91 

STA (OPER), Y 

2 


As instruções STA fazem o papel inverso das instruções 
LDA. Observe o seguinte exemplo: 

LDAS50 STA $50 

1 ? 2 ? 

No primeiro exemplo, como já é de nosso conhecimento, 
o acumulador é carregado com o conteúdo de endereço $ 50. 

No segundo exemplo ocorre exatamente o contrário, ou 
seja, o endereço $ 50 é carregado com o valor do acumulador. 
A instrução STA (STORE) armazena em determinado ende¬ 
reço o valor do registrador que, dependendo do caso, pode 
ser A (acumulador), X (indexador X) ou Y (indexador Y). 

STA OPER — Endereçamento direto (página zero) in¬ 
troduz o valor do acumulador no endereço definido pelo ope¬ 
rador. Por exemplo: STA $ 50 — Introduz o valor do acumula¬ 
dor no endereço $ 50. 

STA OPER, X — Endereçamento indexado por X (pági¬ 
na zero). Reveja o funcionamento da instrução LDA OPER, X 
(página zero), lembrando que o sentido agora é o inverso. 

STA $ 50, X — Supondo X = 08, coloca o valor do acu¬ 
mulador no endereço $ 58 ($ 50 -»- '08' = $ 58). 

STA OPER — Endereçamento direto (Absoluto). Veja a 
instrução LDA OPER (Absoluto) da lição anterior. 

STA $ 800 — Coloca o valor do acumulador no endereço 
$8000. 

STA OPER, X — Endereçamento indexado por X (Abso¬ 
luto). Rever a instrução LDA, X (Absoluto). 

Exemplo: STA $ 0300, X — Supondo X = 05, coloca o 
valor do acumulador no endereço $ 305 ($ 300 + '05' = $ 
305). 


STA OPER, Y — Endereçamento indexado por Y (Abso¬ 
luto). Rever a instrução LDA OPER, Y (Absoluto). 

Exemplo: STA $ 0300, Y — Supondo Y = 07, coloca o 
valor do acumulador no endereço $ 0307 ($ 0300 + '07' = $ 
307). 

STA (OPER,X) — Endereçamento indireto (indexado por 
X). Rever o funcionamento da instrução LDA (OPER,X). Veja 
o exemplo da figura 1. 


Figura 1 

STA ($10,X) 

S 10 + 1071 = $ 17 
+ 1 

$"Í8 


Coloca o valor 
do acumulador 
no endereço 
($1510) 


Supondo: Conteúdo de X = 07 

Conteúdo de 0017 = 10 
Conteúdo de 0018 = 15 


$0017 -#10 ) 
$0018 - # 15 f 


conteúdo dos endereços 


Portanto, o endereço formado é $ 1510 


STA (OPER, Y) — Endereçamento indireto (indexado por 
Y). Rever a instrução LDA (CPER,Y). Veja o exemplo da fi¬ 
gura 2. 
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Sub-rotinas contidas na ROM 


TABELA VI 

Código usado Formato Bytes usados 

4C JMPOPER 3 

6C JMP(OPER) 3 


Existem sub-rotinas já prontas na ROM do seu computa¬ 
dor, tendo cada uma seu papel definido. Essas sub-rotinas 
podem ser requisitadas a qualquer momento através do uso da 
instrução JSR e como estão contidas na ROM, jamais pode¬ 
rão ser apagadas ou ter seus valores alterados (tabelas VII e 
VIII). 


Dentro das instruções "JUMP", vimos inicialmente JSR, 
uma instrução que utiliza o salto para uma sub-rotina. 

Ao encontrar a instrução RTS na sub-rotina, o programa 
volta com sua execução para o endereço logo após a instrução 
JSR. 

JMP OPER — Endereçamento direto (Absoluto). 

A instrução JMP, assim como a JSR, também realiza um 
salto para um determinado endereço, porém com a diferença 
de não haver mais volta ao programa principal que utilizou a 
instrução JMP, é como se existisse uma ligação imaginária 
unindo blocos de memória (figura 4). 


Figura 4 


0800 - BE 30 10 
0803 - B418 
0805 — 9D 20 20 
0808 - 4C 1208 
080B -00 

0812- A91C 
8D 00 07 
8E01 07 


LDXS 1030, X 
LDY $ 18, X 
STA $ 2020, X 
JMP $ 0812 
BRK 

LDA#$1C - 
STA $ 0700 
STX $ 0701 


Ligação imaginária 
entre blocos 


JMP — Endereçamento indireto (Absoluto). Essa instru¬ 
ção também realiza um salto, porém, o endereço para qual o 
"Jump" irá saltar não está especificado na instrução de modo 
direto e sim indireto (figura 5). 


Figura 5 


JMP (S 5010) í 

-I- 1 Dados < 

$5010 — # 60 
$5011 -# 10 

$5011 ( 

$ 5010 — # 60 (parte baixa do endereço) 
$5011 — 10 (parte alta do endereço) 

j endereço 
y formado: 

) $1060 


Portanto, no exemplo da figura 5, a instrução JMP irá 
saltar para o endereço $ 1060. 


| ■ 

TABELA VII 

Endereços 

Funções 

F800 

Exibe na tela caractere Plot 

F819 

Exibe na tela uma linha horizontal 

F828 

Exibe na tela uma linha vertical 

FB40 

Estabelece o modo gráfico 

FC58 

Limpa a tela 

FD1B 

Gera um número aleatório 

FD35 

Espera uma tela ser pressionada 

FD8E 

Gera RETURN 

FDDA 

Mostra o conteúdo do acumulador (HEX) 

FF3A 

Gera um sinal sonoro 


As sub-rotinas da ROM da tabela VII, estão armazenadas 
na memória ROM do TK 2000 e podem ser explicadas com 
mais detalhes com o auxílio do seu manual técnico. 


Endereços 

TABELA VIII 

TK 2000 

Funções 

F043 

Verifica o teclado 

F800 

Exibe na tela um plot em baixa resolução 

F819 

Exibe na tela uma linha horizontal 

F828 

Exibe na tela uma linha vertical 

F832 

Limpa a tela inteira 

F836 

Limpa a tela com exceção a área de texto 

F869 

Exibe na tela o número da cor de um bloco 

F85F 

Incrementa o número da cor 

F864 

Determina a cor do bloco 

F941 

Mostra os conteúdos de A e X 

F948 

Coloca na tela três espaços em branco 

F94A 

Coloca na tela de 1 a 256 espaços 

FBDD 

Gera um Sinal Sonoro (BEEL) 

FCA8 

Atraso (WAIT) 

FD67 

Obtém uma linha de entrada 

FD6A 

Obtém uma linha com o símbolo " " 

FD6F 

Obtém um linha sem o símbolo " " 

FD8B 

Limpa o fim e gera RETURN 

FD8E 

Gera um RETURN 

FDDS 

Mostra o conteúdo do acumulador (HEX) 

FDE3 

Mostra a metade menos significativa do 

FDED 

conteúdo do acumulador 

Mostra o caractere cujo código está no 

FE80 

acumulador 

Muda o vídeo para modo inverso 

FE84 

Muda o vídeo para modo normal 

Mostra a palavra "ERR" 

FFLD 

FF3A 

Gera um sinal sonoro (BEEP) 

FF3F 

Carrega os registradores 

FF4A 

Salva os registradores 


Vamos agora apresentar alguns programas curtos e sim¬ 
ples, para que você possa entender o funcionamento de cada 
um deles, através da análise instrução por instrução. 

Em todos eles é usada uma mesma sub-rotina da ROM, 
que tem como finalidade imprimir o valor do acumulador no 
final do programa. 

Antes de rodá-lo, porém, tente descobrir o valor do acu¬ 
mulador de cada um deles, analisando os programas um a um. 
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Figura 2 


STA ($ 10), Y 


Supondo l Y —*07 
conteúdo < $0010—*30 
de ( $0011 —►IO 


$ 10+1 —► $11 
$0080—► 30 

$ 0011 —► # 10 


conteúdo dos endereços 


Endereço formado: $ 1030 + Y (= 07) $ 1037 


A instrução JSR significa salto para uma sub-rotina e 
pode ser comparada à instrução GOSUB em BASIC. 

As duas podem ser comparadas porque tanto uma como 
a outra saltam a uma sub-rotina. 

As sub-rotinas podem ser classificadas como um "mini- 
programa" que não faz parte do programa principal e são cha¬ 
madas a qualquer momento através da instrução JSR. 

Uma sub-rotina pode ser requisitada uma, duas ou mais 
vezes pelo programa principal. 

Quando um programa que está em plena execução en¬ 
contra uma instrução do tipo JSR é como se ele parasse de 
executá-lo e passasse a executar outro programa. 

Se pensássemos um pouco, acharíamos que faltava algu¬ 
ma instrução para que no final da execução de uma sub-rotina 
houvesse o retorno ao programa principal. Na verdade, existe 
essa instrução de retorno, que é simbolizada pela sigla RTS, 
que significa retorno de uma sub-rotina. Em outras palavras, 
esta instrução finaliza a execução de uma sub-rotina e retorna 
ao programa principal. 

RTS — Retorno de uma sub-rotina (tabela V). 


STX — Armazena o valor do indexador X na memória 
(tabela II) 



TABELA II 


Código usado 

Formato 

Bytes usados 

86 

STX OPER 

2 

96 

STX OPER, Y 

2 

8E 

STX OPER 

3 


As instruções STX funcionam de modo idêntico às ins¬ 
truções STA, com uma única diferença: a de haver troca de 
registros, ou seja, a STX utiliza o indexador X e a STA utiliza o 
registro acumulador. 

As instruçêos STX podem apresentar três formatos dife¬ 
rentes: 

STX OPER — Endereçamento direto (página zero). Fun¬ 
cionamento idêntico à instrução STA OPER. Por exemplo: 
STX $ 30 — Coloca o valor do registro X no endereço $ 30. 

STX OPER, Y — Endereçamento indexado por Y (página 
zero). Por exemplo: STX $ 50 Y — Supondo Y = 60, o ope¬ 
rando da instrução é adicionado ao valor do registro Y. ($ 50 
+ '60' = $ B0), ou seja, o valor do registro X é colocado no 
endereço $ B0. 

STX OPER — Endereçamento direto (Absoluto). Funcio¬ 
namento idêntico à instrução STA OPER (Absoluto), levan¬ 
do em consideração a troca de registros A por X. Por exem¬ 
plo: 

STX $ 900 — Supondo X = 15, coloca o valor de X, ou 
seja, o número 4^ 15 no endereço $ 9000. 

STY — Armazena o valor do indexador Y na memória 
(tabela III). 



TABELA III 


Código usado 

Formato 

Bytes usados 

84 

STY OPER 

2 

94 

STY OPER, X 

2 

8C 

STY OPER 

3 


Todas as instruções que compõem a STY são de funcio¬ 
namento idêntico às instruções STX, com a única diferença de 
haver a troca de registradores X por Y. 

JSR — Salto para uma sub-rotina. 



TABELA IV 


Código usado 

Formato 

Bytes usados 

20 

JSR OPER 

3 



TABELA V 


Código usado 

Formato 

Bytes usados 

60 

RTS 

1 


Figura 3 



0800 - 91 05 

0802 - 8S 50 

0804 - 202008 
0807 - A669 

LDA = $ 05 ) 
STA $ 50 [ 

JSR $0820 ( 

LDX $ 69 ) 

programa principal 

0820-A2 30 

0822 - 8651 

0824 - 60 

0825- BC 21 10 

LDX & $ 30 
STX $51 

RTS 

LDY $ 1021, X 

| sub-rotina 


Vamos, através do exemplo da figura 3, analizar o fun¬ 
cionamento das instruções JSR e RTS. Supondo que q pro¬ 
grama tenha início no endereço $ 0800: 

— O acumulador é carregado com o valor '05'. 

— O conteúdo do acumulador, ou seja '05', é armazenado no 
endereço $ 50. 

— O programa passa agora a ser executado a partir do ende¬ 
reço $0820* 

— O registro X é carregado com o valor '30'. 

— O conteúdo do registro X, ou seja, '30' é armazenado no 
endereço $51. 

— Encontra a instrução de retorno, voltando imediatamente 
após a instrução JSR, ou seja, ao endereço $ 0807. 

— O registro X é carregado com o conteúdo do endereço 
$69. 

— Segue o programa. 

JMP — Salta para um novo endereço (tabela VI). 
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Programa 1 



0000-A9 05 

LDA \ 

t 5 05 

0002 - 20 DA FD 

JSRS 

> FDDA 

0005-60 

RTS 



Programa 2 


0000-A207 

LDX $ 07 

0002- A9 50 

LDA * $ 50 

0004 - 9570 

STA $ 70, X 

0006- A5 77 

LDA $77 

0008 - 20 DA FD 

JSR $ FDDA 

060B -60 

RTS 


Programa 3 


0000-A9 00 

LDA*$00 

0002-85 6C 

STA $ 6C 

0004-A9 03 

LDA # $ 03 

O0O6-8S6D 

STA $ 6D 

0008-A21C 

LDX#S1C 

060A - A0 10 

LDY #S10 

O0OC -8C 0003 

STY $ 0300 

O0OF - Al 50 

LDA ($ 50, X) 

0011 — 20 DA FD 

JSR$FDDA 

0014-60 

RTS 


Programa 4 

0800 - A9 10 

LDA #$10 

0802 - 8551 

STA $ 51 

0804 -A9 30 

LDA# $30 

0806 - 8S 50 

STA $50 

0808- A200 

LDX # $ 00 

080A-8601 

STX $ 01 

080C - A0 10 

LDY #$10 

080E- 84 02 

STY $02 

0810 - A9 10 

LDA #$10 

0812 - 8530 

STA $30 

0814- A0 0S 

LDY # $ 05 

0816- B62B 

LDX $ 2B, Y 

0818-8140 

STA ($40, X) 

081A - A4 50 

LDY $50 

081C — BI 01 

LDA ($ 01), Y 

081E — 20 DA FD 

JSR$FDDA 

0821 - 60 

RTS 


Para entrar no modo monitor e digitar os programas, 
digite LM, seguido por RETURN. Digite os endereços e os có¬ 
digos hexadecimais, seguidos por RETURN após cada linha. 
Não digite os mneumônicos, eles são apenas um auxiliar. Para 
verificar as listagens digite endereço inicial, seguido por um 
ponto e o endereço final seguido por L, numa única linha. 


r - n 


TENTE ESTA 


Estes são para o TK 83/85 


Daniel Nordemann 

Estes dois programas curtíssimos são para enfeitar a 
tela da sua televisão com quadros animados. Operar em 
Slow. 

_1 PRINT P7 2I *RND ,3I*RND;CHR$ 
l b + R N D J * 

2 RUN 

e: 

1 PLÜT 63*RND*RND . 43*RND*RND 

2 U N P L OT 5 3 * R N D , 4 3 * R N D 

3 RUN 

São fáceis de entender e podem ser modificados à 
vontade (diminuir os quadros, usar menos caracteres, até 
um só se quiser, misturar os dois programas, alterar a den¬ 
sidade de caracteres. 


V_/ 



SOFTWARE 



novas titas com 
emocionantes paia você! 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 


1. VALKIRIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
Divino C.R. 
Leitão). 

E mais: 
GUERRILHA 
CÓSMICA 
eZOR. 


4. DEFENSOR 3D 

Livre nosso 
planeta de uma 
invasao 
alienígena 
Fantásticas 
simulações 
tridimensionais 
E mais: Q BERT 
(Exclusividade 
Ciberne, 
por Divino C.R. Leitão) e 
ASSALTO. 





2. MERCADOR DOS 
SETE 

MARES ■ 

No século XIX 
você percorre o 
mundo a bordo 
de seu navio, em 
busca de bons 
negócios. 

E mais: 

CORRIDA MALUCA e PINBALL 
(Exclusividade Ciberne, por Divino 
C.R. Leitáo). 

5. ROT I - PLUS 

• S.O.G. 

Sistema 

operacional, com 
linguagem 
gráfica. Infinitas 
opções de uso. 

Totalmente em 
código de 
máquina 

(ExclusividadeCiberne, por). Magel). 

• MERGE 

Possibilita a junçáo de vários 
oroqramas, uns aos outros. 



US -I.- 

•Ui 


3. SUBESPAÇO 

Implacável 
caçada espacial 
Totalmente 
gráfico. 

E mais: 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne, por 
Divino 

C.R. Leitão) e COMBOIO 
ESPACIAL. 


6. APLIC1 

• COMP-CALC 

Rápido, eficiente e totalmente em 
código de máquina. A melhor versáo 
do já famoso Visi-Calc. 

• COMPARO 

Programa gerador de arquivos. 

Total mente em código de máquina. 
Modele fichas e as acesse pelo 
campo que quiser. 

• COMP TEXTO 

De fácil manipulaçáo, totalmente em 
código de máquina. 


PARA EQUIPAMENTOS COM LÓGICA TRS-80 



1. SIMULADOR DE VÔO 

Totalmente 
gráfico e 
acompanhado 
de livro de 
instruções, com 
diagramas, 
tabelas etc. 

E mais: 

PINTOR 
MALUCO e 
O DESAFIO DA 
GALINHA. 


















SPACE EGGS 

Um jogo emocionante 
para TK 2000 


Que tai exterminar monstros incubados em ovos no espaço? 
Este é basicamente o enredo deste interessante jogo 
fabricado pela Cibertron. 


Marcos Lorenzi 


Na seção "Analisando" deste mês, estamos apresentan¬ 
do o jogo "Space Eggs", para o TK 2000, fabricado pela Ciber¬ 
tron. 

O jogo, desenvolvido totalmente em linguagem de má¬ 
quina, foi nos enviado para análise em sua primeira versão. Já 
está no mercado uma segunda versão basicamente igual à pri¬ 
meira, tendo como diferença a forma de carregamento, que se 
tornou mais simples. 

A embalagem que acompanha a fita é bem simples, onde 
consta o nome da empresa, do produto e a que computadores 
o programa é compatível. 

Acompanhando a fita vem o manual de instruções, que 
está bem detalhado facilitando a sua compreensão, não dei¬ 
xando transparecer dúvidas com relação ao processo de jogo. 

O programa está gravado em ambos os lados apenas por 
motivo de segurança, caso uma das versões apresente algum 
problema. Notamos que a qualidade da fita é muito boa. 

Na própria fita está escrito o código de carregamento 
totalmente em linguagem de máquina. Usa-se o comando LM 
mais o código anexo, (já a nova versão utiliza o comando 
LOAD, como auto-start). 

No jogo, você encontra-se no espaço e terá que enfren¬ 
tar criaturas que estão incubadas em ovos durante sua jor¬ 
nada. 

Seu objetivo é destruí-las antes que estas acabem fa¬ 


zendo o mesmo com você. Para isso, você dispõe de três 
naves, ou seja, terá três chances para destruir o inimigo. 

O jogo consiste em quatro fases e para se conseguir pas¬ 
sar de um estágio ao outro é preciso vencer a todas criaturas, 
sem que sua nave seja abatida. 

O quadro abaixo mostra os valores respectivos de cada 

fase: 


FASES 

PONTOS 

1? 

15 

2? 

30 

3? 

45 

4? 

80 


Em cada fase nota-se um grau de dificuldade crescente 
para se conseguir vencer o inimigo. 

Observamos que nos três primeiros estágios, os graus de 
dificuldade são parecidos, apenas havendo diferença na inten¬ 
sidade, velocidade e o modo de como são elaborados os ata¬ 
ques. 

Na última fase notamos ser a mais difícil, onde o inimigo 
busca destruí-lo de uma forma veloz e objetiva. 
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Acoplando duas naves 

Passando pelas quatro fases e conseguindo o feito, o pró¬ 
ximo estágio será misto, ou seja, você confrontará com os 
quatro tipos de criaturas juntos. 

Outra meta que você terá como desafio é tentar acoplar 
outra nave à sua, onde seu poder de fogo poderá chegar a ser 
de até cinco. 

Para que o jogador consiga acoplar outra nave, ele deve 
alcançar os mil pontos e ter uma nave extra ao mesmo tempo. 
A cada mil pontos obtidos o participante tem a chance de aco¬ 
plar outra nave além daquela que já possui, sendo três o má¬ 
ximo de espaçonaves que podem ser acopladas e o poderio de 
fogo, caso você consiga, pode chegar a ser de cinco tiros, 
sendo o limite máximo. 

Você conseguindo supèrar todas essas barreiras, pode-se 
dizer que sua missão está cumprida, resíando apenas manter 
seu nível de ataque para ter maior facilidade em derrotar seu 
inimigo. 

O Space Eggs contém dois placares, que estão locali¬ 
zados no topo da tela de jogo e são de fácil leitura. 

O primeiro placar mostra os pontos obtidos pelo jogador 
até o momento em que o mesmo estiver em jogo. 

O segundo registra o maior número de pontos conse¬ 
guidos pelo jogador (RECORD). Este será alterado se o mes¬ 
mo conseguir ultrapassar a sua maior marca ficando regis¬ 
trada a nova. 

Os números são de fácil leitura e de tamanho adequado, 
proporcionando ao jogador uma clara identificação. Apenas 
uma observação: o número oito é facilmente confundido com 
o nove, causando certa dificuldade ao lê-lo. 

A tela de apresentação do Space Eggs está muito bem 
elaborada, em letras grandes e legíveis, contendo ainda a ca¬ 
racterística das criaturas de cada fase com seus respectivos 
valores. 

A segunda tela, ou demonstrativo, deveria ser apresen¬ 
tada de uma forma mais completa, onde apenas aparece a 
nave acoplada a outra, movendo-se horizontalmente sem dar 
disparos e as criaturas incubadas em ovos em movimentos 
circulares. 

Esta tela de demonstrativo, apenas como exemplo para 
se ter uma noção de como é o jogo, poderia apresentar alguns 
detalhes mais específicos. 

A tela de jogo está representada em dois planos, ou seja, 
nota-se perfeitamente que os movimentos da nave em relação 
ao fundo, que é o espaço, são contrários, dando um aspecto 
mais realista ao jogo. 

Ao fazermos uma comparação do som em relação ao es¬ 
tilo do jogo, notamos que não há uma combinação perfeita de 
efeitos, tirando o que seria a característica principal de um 
"game". 

Uma melhor elaboração e distribuição de graves e agudos 
nas diferentes fases do jogo, conseqüentemente o tornaria 
mais apresentável, (por sinal seu nível é muito bom). 


Conclusão 

Por ser bem elaborado, o Space Eggs consegue prender a 
atenção fazendo com que você fique horas diante da TV ten¬ 
tando superar seu inimigo. 

Um jogo que além de agradar aos mais jovens, também 
atingirá os adultos, sendo estes, às vezes, mais interessados 
em videogames do que os jovens. 
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Acompanha manual para montagem com opções 
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Chave 110/220 VaC 
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Programas TK 2000 


Renumerador de linhas 


Wladimir Bastos 


Eis um pequeno truque que permite que você renumere 
um programa em BASIC, sem corrigir os endereços de 
GOTO e GOSUB. Apesar disso, este é um excelente 
ponto de partida para você começar a desenvolver 
aplicativos. 


Este programa reorganiza os números que rotulam as li¬ 
nhas de um programa em BASIC no TK 2000. Ele permite que 
se altere o número da primeira linha e se dê um incremento 
constante, permitindo que se aumente o espaço entre linhas 
para correção ou para dar-se um acabamento mais estético. 

Após ter digitado o programa que deverá ser renumera- 
do, devemos digitar o programa renumerador, a partir de uma 
linha maior que a última linha do programa anterior. 

Então devemos escolher qual o valor da primeira linha e o 
incremento a ser dado (estes valores serão pedidos pelo pro¬ 
grama renumerador) e digitar GOTO xx, sendo xx o número da 
primeira linha do programa renumerador, seguido pela tecla 
RETURN. Espere alguns segundos e o programa estará renu- 
merado. Atenção para os desvios (200 GOTO 500, 200 IF A = 
0 THEN GOTO 500, etc.). E/es permanecerão com seus valo¬ 
res originais, sem serem afetados pelo programa renumera¬ 
dor. Portanto, logo após a renumeração, estes valores devem 
ser trocados pelos novos. 'ores. 


Programa Renumerador 


100 INPUT 

"QUAL 0 VALOR DA PRIMEIRA 

L 

INHA ?";A 



200 INPUT 

"QUAL 0 VALOR 00 INCREMENTO 

?";B 



300 X = - 

FRE (0) - 24578 


400 FOR I 

= 2048 TO X: IF PEEK (I) 

= 

0 THEN IF 

A > 255 THEN POKE I + 


3,A - INT 

(A / 256) * 256: POKE 


I ♦ 4, INT 

(A / 256):A = A + BU = I 

+ 5: NEXT 

500 IF PEEK (I) = 0 THEN POKE I + 

3 

,A: POKE I 

+ 4,0:A = A + B*I = 1 + 5 


600 NEXT 




Programa a ser renumerado 


ÍO REH — PROGRAMA PARA ACHAR 8UAH0 
0 H O 0 — 

20 H = INT <( RND (í) # 3) / 2) 


30 IF H = 0 THEN 20 

40 PRINT * 0 VALOR E MAIOR ÔUE ZERO * 

;H 

50 END 


Programa original mais renumerador 


10 

REH • 

— PROGRAMA PARA ACHAR QUAND 

0 H 

O 0 ■ 

— 

20 H = INT (( RND (1) « 3) / 2) 

30 

IF H : 

= 0 THEN 20 

40 

PRINT 

" 0 VALOR E MAIOR QUE ZERO " 

;H 



50 

END 


60 

INPUT 

"QUAL 0 VALOR DA PRIMEIRA LI 

NHA 

?";A 


70 

INPUT 

"QUAL 0 VALOR D0 INCREMENTO 

?";8 


80 ) 

( = - 

FRE (0) - 24578 

90 

FOR I 

= 2048 TO X: IF PEEK (I) = 

0 THEN IF A > 255 THEN POKE I + 

3,A 

- INT (A / 256) * 256: POKE 

I + 

4, INT (A / 256):A = A + B:I = I + 5: NEXt 

100 

IF PEEK (I) = 0 THEN POKE I + 3 

,A 5 

POKE I + 4,0:A = A + B:I = I + 5 

110 

NEXT 



Após ter digitado GOTO 60 e RETURN obteremos: 



A seguir deveremos trocar a linha 10 por 10 IF H = 0 
THEN 5 e apagar as linhas 25 a 50. 
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Programas para TK 2000 


Desafie um amigo para ver quem, controlando 
um grupo de baiões carregados de explosivos, der¬ 
ruba o maior número possível de pedras numa mon¬ 
tanha. 


Dive Bomber 

Adaptado por Mário Folli 


Dive bomber é um programa conhecido por muitos pos¬ 
suidores do Apple. Pode ser um jogo interessante, que faz uso 
de muitas instruções gráficas e sonoras, achamos que ele de¬ 
veria ser adaptado para o TK 2000. 

Neste jogo, seu objetivo é tentar superar seu adversário 
na destruição de rochas que se encontram numa montanha, 
fazendo com que um balão carregado de explosivos se choque 
com ela. 

O programa chama alternativamente os dois jogadores 
para controlarem seus respectivos balões. 

Comentários sobre as linhas de programa 

4 a 210 — Apresentação do jogo e instruções. 

220 a 400 — Carrega a tabela de figuras na memória, a partir 
do endereço 16384 (decimal). 

440 a 630 — Desenha a tela do jogo. 

640 a 750 — Mostra os nomes dos jogadores, placar e erros 
de alvo. 

760 a 810 — Efetua a contagem de tempo para o jogador se 
preparar. 

820 a 930 — Movimenta grupo de balões pela tela. 

950 a 1060 — Movimenta um dos balões para baixo, sem veri¬ 
ficar se atingiu as rochas. 

1070 a 1150 — Movimenta o balão do restante do caminho, 
verificando se atingiu as rochas. 

1160 a 1170 — Verifica se o balão que caiu atingiu a monta¬ 
nha, sem destruir as rochas (situação de erro). 

1190 a 1280 — Verifica quantas rochas foram atingidas, incre¬ 
mentando o placar do jogador. 

1290 a 1390 — Explode as rochas. 

1400 a 1550 — Faz as rochas não atingidas e que perderam a 
sustentação cairem. 

1560 — Verifica se todas as rochas foram destruídas. 

1610 a 1850 — finaliza a partida, congratulando o vencedor. 


O programa 


3 REH DIVE BOHBER 

4 HOME s FOR I = í TO 22 

5 VTAB is PRINT "mmmm D I V E B 
0 H B E R ####*#*#" 

10 SOUND 1,40 
15 VTAB I: PRINT * 

// 

20 NEXT I 
30 DIH HX(9),HY(9) 

40 DIH 8(45,10)5 MP : HOHE 
50 VTAB í: HTAB 6: PRINT "DIVE BOHBER 
- (INSTRUÇÕES)" 

60 PRINT TAB( 6)"=========== ===== 

......tf 

70 VTAB 4: PRINT " - 0 SEU OBJETIVO 
E DE SEU OPONENTE E” 

80 VTAB 6: PRINT "DESTRUIR 0 HAIOR NU 
HERO POSSÍVEL DE" 

90 VTAB 8: PRINT "ROCHAS (CÍRCULOS BR 
ANCOS)." 

100 VTAB 105 PRINT " - UHA FAIXA BRAN 
CA SOBRE 0 NOHE DO" 

110 VTAB 125 PRINT "JOGADOR,INDICA A 
SUA VEZ DE JOGAR." 

120 VTAB 145 PRINT " -PARA LARGAR A 
BOHBA,PRESSIONE A" 

130 VTAB 165 PRINT "BARRA DE ESPAÇOS. 

// 

140 VTAB 185 PRINT " - CADA JOGADOR 
PODE ERRAR NO HAXIHO" 

150 VTAB 205 PRINT "5 VEZES (QUANDO F 
IÇARA SEH BOHBAS)." 

160 VTAB 225 HTAB 65 PRINT "(PRESSION 
E QUALQUER TECLA)" 

170 GET Ais HOHE 

180 VTAB 65 INPUT "QUAL 0 NOHE DO JOG 
ADOR 1? «10)"-Jil 
190 IF LEN (Jll) ) 9 THEN 180 
200 VTAB 85 INPUT "ÔUAL 0 NOHE DO JOG 
ADOR 2? (<iO)";J2l 
210 IF LEN (J2I) > 9 THEN 200 
220 VTAB 115 HTAB 9s PRINT "« AGUARDE 
UH H0HENT0 *" 

230 P = 16384 

240 POKE 232,0s P0KE 233,64 

250 READ Ils IF II = "END" THEN 410 

260 FOR A = 1 TO LEN (II) - 1 STEP 2 

270 PI = HIDI (II,A,2) 

280 H = ASC ( LEFTl (PI,D) 

290 L = ASC ( RIGHTl (PI,D) 

300 H = H - 485 IF H > 9 THEN H = H - 
7 

310 L = L - 48! IF L > 9 THEN L = L - 
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7 

320 POKE P r H * 16 ♦ L 
330 P = P + i 
340 NEXT A 
350 GOTO 250 

360 DATA "Q3000800ÍFQ03700" 

370 DATA "25202C202E35353F3F3F3F3735 
3535352525252525202C2D2E35353F3F3 
F 3F373535353525252525250500" 

380 DATA "25253F3F24242C2D253C3E2627 
372E2D3536363F3F2E2E00" 

390 DATA "Í225253C3C37372E2E0500" 

400 DATA "END" 

410 Si = 0:S2 = 0:M1 = 0:H2 = 0 
420 VTAB 14: HTAB 6: PRIMT "< PRESSIO 
NE QUALQUER TECLA >" 

430 GET Al: POKE - 16368,0 
440 HOME 
450 HGR 

460 ROT= 0: SCALE= 1 
470 HT = 0 

480 FOR X = 1 TO 40 

490 READ R: IF R = 0 THEN 560 

500 HCOLOR = 1 

510 FOR DX = (X - 1).* 6 TO (X - 1) * 

6 + 6 

520 HPLOT DX,159 TO DX,159 - R * 6 
530 NEXT DX 

540 FOR Y = 1 TO R:B(X,Y) = 5: NEXT Y 

550 HCOLOR = 3 

560 FOR Y = R + 1 TO 10 

570 DRAU 3 AT (X - 1) # 6 + 3,159 - ( 

Y - 1) * 6 - 3 
580 B(X,Y) = 1 
590 NEXT Y 
600 HT = HT + 10 - R 
610 NEXT X 

620 DATA 9,8,7,5,4,3,2,0,0,1,2,3,4,3 
,3,4,5,6,5,4 

630 DATA 4,5,6,5,4,3,3,4,3,2,1,0,0,2 
,3,4,5,7,8,9 
640 HOME 

650 VTAB 22: PRINT TAB( 33)•: INVERSE 
: PRINT "DIVE";: NORMAL : PRINT " * 

660 VTAB 23: PRINT TAB( 32) ; : INVERSE 
: PRINT "BOMBER";: NORMAL : PRINT " " 
670 SU = - 1 

680 IF SU = 1 THEN SU = - i:F = 230: 

T = 10: GOTO 700 

690 SU = i:F = 10:T = 230 

700 IF Mi = 5 AND SU = 1 THEN 680 

710 IF M2 = 5 AND SU = - i THEN 680 

720 VTAB 22: IF SU = 1 THEN INVERSE 


730 PRINT J1S ; : NORMAL : PRINT TAB( 

11){"PLACAR:";S1; TAB( 22);"ERR0S 
s";Mi 

740 VTAB 23: IF SU = - 1 THEN INVERSE 

750 PRINT J2S;: NORMAL : PRINT TAB( 
li);"PLACAR:"{S2{ TAB( 22);"ERR0S 
:";M2 

760 FOR CR = 3 TO 1 STEP - 1 
770 SOUND 40,20 

780 VTAB 21: HTAB 14: PRINT "TEMPO:": 
INVERSE : VTAB 21: HTAB 20: PRINT "0": 
VTAB 21: HTAB 21: PRINT CR: NORMAL 


790 

POKE - 16368,0 


800 

FOR P = 1 TO 300: NEXT P 


810 

NEXT CR 


820 

n 

VTAB 21: PRINT TAB( 14)" 


830 

FOR IN = F TO T STEP SU * 3 


840 

SOUND Y,5 


850 

HCOLOR = 3: DRAU 1 AT IN - 

4,10 

860 

DRAU 2 AT IN,25 


870 

AA = PEEK (39) 


880 

IF AA = 48 THEN 900 


890 

POKE - 16368,0: GOTO 950 


900 

HCOLOR = 0 


910 

DRAU 1 AT IN - 4,10 


920 

DRAU 2 AT IN,25 


930 

NEXT IN 


940 

GOTO 1580 


950 

HCOLOR = O: DRAU 1 AT IN - 

4,10 

960 

DRAU 2 AT IN,25 


970 

X = IN 


980 

FOR Y = 25 TO 99 STEP 2 


990 

SOUND Y,1 



1000 

HCOLOR 

= 

0: 

DRAU 2 AT 

X,Y - 2 

1010 

X = X + 

SU 

# 

1.75 


1020 

IF X ( 

r 

0 

THEN X = 240: GOTO 1 

040 






1030 

IF X > 

= 

240 THEN X = 

0 

1040 

HCOLOR 

= 

3: 

DRAU 2 AT 

X,Y 

1050 

NEXT Y 





1060 

HCOLOR 

= 

O: 

DRAU 2 AT 

X,99 

1070 

FOR Y = 

= 99 TO 158 STEP 

2 

1080 

SOUND 1 





1090 

HCOLOR 

= 

0: 

DRAU 2 AT 

X,Y - 2 

1100 

IF B( INT 

(X 

/ 6) + 1, 

INT ((159 

- Y) 

/ 6)) : 

> 0 

THEN 1160 


mo : 

X = X ♦ 

SU 

* : 

1.75: IF X 

< 0 THEN 

X 

II 

X 

« - 1 





1120 

HCOLOR 

= 

3: 

DRAU 2 AT 

X,Y 

1130 

NEXT Y 





1140 

HCOLOR 

= 

0: 

DRAU 2 AT 

X, 157 
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1150 GOTO 1580 

1160 RX = INT (X / 6) + 1:RY = IMT ( 
(159 - Y) / 6) 

1170 IF B(RX,RY) = 5 THEN 1580 
1180 FOR X = 1 TO 9:HX(X) = 0:HY(X) = 

0! NEXT X 
1190 HP = 1 

1200 FOR Y = - 1 TO l: FOR X = - 1 TO 
1 

1210 IF RX + X ( 1 OR RX + X > 40 OR 
RY + Y > 10 THEN 1280 
1220 IF B(RX + X,RY + Y) ( >1 THEN 
1280 

1230 HX(HP) = RX + XsHY(HP) = RY + Y 

1240 B(RX + X,RY + Y) = 0 

1250 IF SW = 1 THEN SI = Si + 1: GOTO 

1270 

1260 S2 = S2 + 1 

1270 HP = HP + 1 

1280 NEXT X: NEXT Y 

1290 HP = HP - 1 

1300 FOR FL = 1 TO 10 

1310 HCOLOR = 3 

1320 FOR FO = 1 TO HP 

1330 ORAM 3 AT HX(FO> * 6 - 3,162 - H 

Y(FO) » 6 

1340 NEXT FO 

1350 HCOLOR = 0 

1360 FOR FO = 1 TO HP 

1370 ORAM 3 AT HX(FO) * 6 - 3,162 - H 

Y(FO) * 6 

1375 SOUNO 5,HP 

1380 NEXT FO 

1390 NEXT FL 

1400 FS = RX - l:TS = RX + 1 

1410 IF FS < 1 THEN FS = 1 

1420 IF TS > 40 THEN TS = 40 

1430 FOR S = FS TO TS 

1440 FOR Y = 2 TO 10 

1450 IF B(S,Y) ( > 1 THEN GOTO 1540 

1460 FOR C = Y - 1 TO 1 STEP - 1 

1470 IF B(S,C) ( > 0 THEN 1500 
1480 NEXT C 

1490 C = 0 

1500 IF C + 1 = Y THEN 1540 
1510 B(S,C + 1) = B(S,Y>:B(S,Y) = 0 
1520 HCOLOR = 0: DRAM 3 AT S * 6 - 3 
,162 - Y » 6 

1530 HCOLOR = 3: DRAU 3 AT S * 6 - 3 
,162 - (C + 1) * 6 
1540 NEXT Y 

1550 NEXT S 

1560 IF (SI + S2) / HT = INT ((Si + 


S2) / HT) THEN 1610 


1570 

GOTO 680 


1580 

IF SW = 1 THEN hl = 1 

41 + 1 

1590 

IF SW = - 1 THEN N2 

= H2 + 1 

1600 

IF Hl + N2 ( 10 THEN 

680 

1605 

IF (Si + S2) / HT = 

INT ((Si + 

S2) / 

r HT) THEN 91900 


1610 

HCOLOR = 1 


1620 

A = 0:8 = 0 


1630 

C = 240:0 = 104 


1640 

HPLOT A,8 TO C,B 


1650 

HPLOT A,D TO C,D 


1660 

HPLOT X,D 


1670 

SOUNO 80,50 


1680 

C = C - 8:0 = 0 - 8 


1690 

A = A + 8:B = 8 + 8 


1700 

IF D = 64 THEN 1720 


1710 

GOTO 1640 


1720 

IF SI > S2 THEN Gl = 

Jil 

1730 

IF SI ( S2 THEN 61 = 

J2S 

1740 

IF Si = S2 THEN Gl = 

"AOS DOIS" 

1750 

A = LEN (Gl) 


1760 

H = INT ((28 - A) / 2) 

1770 

VTAB 7: HTAB H: INVERSE : PRINT 


TAB( H)"PARABENS "• TAB( H + A)G 
f: NORNAL 

1780 SOUNO 100,100 TO 100,100 TO 125, 
100 TO 150,60 

1790 FOR I = 1 TO 1000: NEXT I 
1800 VTAB 6: PRINT TAB( Í6)"FINAL" 
1810 VTAB 7: PRINT TA8< 17)"DA 

tt 

1820 VTAB 8: PRINT TAB( 15)"PARTIDA" 

1830 SOUNO 100,100 TO 100,100 TO 150, 
100 TO 100,60 

1840 FOR I = 1 TO 700: NEXT I 
1850 TEXT 
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Duas dicas para o 
Apple e o TK 2000 



Ocultando uma mensagem 
Efeitos gráficos 


No artigo anterior falei alguma coi¬ 
sa sobre como esconder sua listagem 
dos olhos indiscretos. Aqui eu vou apre¬ 
sentar uma outra maneira bastante inte¬ 
ressante. Vá ao seu computador Apple II 
ou compatível e tecle as seguintes li¬ 
nhas: 

] NEW 
] CALL-151 

* 800:00 18 08 0A 00 BA 22 CC 

C5 C9 Cl A0 CD C9 C3 D2 
CF C8CFC2 C2 D92200 
00 00 

* C (ou Reset) 

Liste agora o seu programa. Esqui¬ 
sito não? Dê o RUN para ver o que acon¬ 
tece. Muito bem, conseguimos escrever 
uma linha de PRINT cujo conteúdo é ile¬ 
gível. A sua utilidade é óbvia, mas como 
utilizá-lo para um programa normal? Fa¬ 
çamos o seguinte: 

] 10 PRINT "LEIA MICROHOBBY" 

] CALL-151 

* 800.819 

800-00 18 08 0A 00 BA 22 4C 
808 - 454941 20 4D 49 43 52 
810 - 4F 48 4F 42 42 59 22 00 
818-0000 

Compare esta listagem com os da¬ 
dos que você entrou da primeira vez. A 
diferença está no bit mais significativo, a 
partir do primeiro "22" da listagem. Na 
verdade, a primeira listagem é idêntica à 
segunda com exceção destes bits men¬ 
cionados. O que fizemos foi modificar o 
bit mais significativo dentro da mensa¬ 
gem entre as duas ASPAS (código 22). 


Então, para reproduzir o efeito que já 
mostramos, basta entrar no monitor, 
modificar o bit mais significativo da 
mensagem entre as aspas e pronto. A 
sua mensagem está escondida. 

Explicado o funcionamento deste 
pequeno truque, você pode alterar pelo 
monitor a sua mensagem, bastando lo¬ 
calizar o BA 22 (PRINT) e trocar o bit 
mais significativo. Para quem quiser au¬ 
tomatizar essa troca, basta escrever 
uma rotina que faça isto automatica¬ 
mente. Deixo isto como exercício para 
os leitores. 

Efeitos gráficos 


Se você tem uma TV em cores, ex¬ 
perimente o seguinte programa: 


10 HGR2 




20 T » 

= 2 




30 OF 

= 140 




40 EI 

= 95 




50 N = 

= 80 




60 OX 

= 140 




70 OY 

= 94 




80 HC0L0R i 

= 4 



90 N i 

= 130 




100 FOR K = 

1 T0 100 



110 X 

= INT 

( RN0 (1) * 

H + 

OF) 

120 Y 

= INT 

( RNO (1) * 

N + 

EI) 

130 FOR I = 

1 T0 N STEP 

T 



140 

X 

II 

X 

1 

■X 

= Y 

- T 

150 

RY = T * EI - 

■ Y 


160 

RX = T * 0F - 

■ X 


170 

HPL0T 0X,0Y 

T0 

X,Y 

180 

HPL0T X0,0Y 

TO 

RX r Y 

190 

HPL0T X0,0Y 

T0 

RX,RY 

200 

HPL0T X0,Y0 

TO 

X,RY 

210 

NEXT I 



220 

HC0L0R = 7 

# 

RNO (1) 

230 

O» 

X 

II 

X 

o 

-< 

II 

ÍSY0 = RY:X0 

240 

NEXT K 



250 

GOTO 10 




Ko Ming Cho 


Ko Ming Cho é engenheiro Eletrô 
nico formado pelo /ta e diretor da Micro 
Mania. 
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Devido sua compatibilidade com modelos anteriores da Texas (TI 58 
e TI 59), esta calculadora permite ao seu usuário um grande número 
de aplicações nos mais diversos campos. 


A TI-66, uma calculadora programável versátil 


Fabio Augusto Polônio 


Caracterizada por sua extrema faci¬ 
lidade de programação, a calculadora 
TI-66 TEXAS, fabricada pela Texas Ins¬ 
trumentos Eletrônicos do Brasil, inclui 
em seu sistema operacional diversas 
funções algébricas, logarítmicas e trigo¬ 
nométricas, além de funções específi¬ 
cas para cálculos estatísticos. 

Possui 47 teclas, na sua maioria 
com dupla função. A primeira função 
está representada na tecla e a segunda 
está no corpo da calculadora logo acima 
da tecla. 

Para que seja acessada a segunda 
função, devemos antes usar a tecla 2nd 
(second) mais a tecla desejada. 

Sua memória é particionada em 
memória de programa (passos) e memó¬ 
ria de dados. 

O usuário pode optar pela reserva 
de áreas de programa ou de dados, atra¬ 
vés da tecla (2nd). Part. Quando a calcu¬ 
ladora está desligada, o conteúdo da 
memória é preservado através da carac¬ 
terística operacional de memória cons¬ 
tante. Pode-se reservar até 64 endere¬ 
ços de memória de dados ou 512 passos 
de programa. Para cada endereço de 
memória reservado decrementa-se em 8 
passos a área de programa. Assim, para 
32 endereços de memória temos 255 
passos de programa; para 33 endereços 
247 passos e assim sucessivamente até 
64 memórias e nenhum passo, ou 512 
passos e nenhuma memória de dados. 


Funções fundamentais de 
Controle de programas 

Para introduzir o modo de progra¬ 
mação aciona-se a tecla LRN (learn-in- 
formar). Pressionando-se uma só vez es¬ 
ta tecla coloca a calculadora na modali¬ 
dade de informação. 

Elimina-se o modo de programação 
sempre que pressionadas as teclas 2nd 
CP. 

A tecla R/S reverte o estado de 
processamento. Pressionando-se R/S 
dá-se início ao processamento a partir 
de onde estiver o apontador do progra¬ 
ma. Para estabelecer o apontador no 
início aciona-se RST (restabelecer), que 
elimina o conteúdo do registrador de re¬ 
torno também. 

É possível a interrupção do progra¬ 
ma através do comando PAUSE, que in¬ 
terrompe o processamento por pouco 
mais de um segundo e faz com que o va¬ 
lor contido no registrador do visor seja 
apresentado no momento. Manter esta 
tecla pressionada durante a execução de 
um programa faz com que cada passo 
do programa seja apresentado. 

Há cinco teclas de letras que repre¬ 
sentam dez labeis. Um labei serve so¬ 
mente como um ponto de identificação 
em um programa. A execução poderá 
procurar um labei e ir até ele, mas não 
haverá nenhum significado numérico 
(equivale ao número de linha de um pro¬ 
grama em BASIC). 


Ela aceita dois tipos de notação 
científica (múltiplos de potências de 10). 
A tecla EE aciona o modo de notação 
científica e 2nd ENG aciona a nota¬ 
ção de engenharia (as potências são 
múltiplas de 3) que é usada mais comu- 
mente em cálculos que exigem manipu¬ 
lação de unidades, (por exemplo, IO -6 
= micro, 10~ 9 = nano, 10“ 12 = pico). 

Além das funções algébricas e 
transcendentais, a TEXAS TI-66 possui 
funções estatísticas pré-definidas. A cal¬ 
culadora utiliza as memórias de 1 a 6 e o 
registrador t para efetuar cálculos esta¬ 
tísticos. 

2nd CSR (clear Statistics Register) 
inicializa a calculadora para cálculos es¬ 
tatísticos, zerando as memórias e o re¬ 
gistrador t. 

2nd 2 + , acumula cada par de 
dados e, usando a tecla INV, elimina 
qualquer ponto de dados indesejável". 
Pode-se calcular diretamente a variân¬ 
cia, desvio-padrão e média aritmética. 


Conclusão 

Com um bom conjunto de funções 
pré-definidas e permissividade de pro¬ 
gramação, esta calculadora permite 
bom desempenho e rapidez de opera¬ 
ção, sem a necessidade do usuário ser 
um exímio programador. Com poucos 
conhecimentos pode-se explorar bem 
todos os seus recursos. 
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CALCULADORAS 


Análise Nodal 



Wilson José Tucci 
José Eduardo Moreira 


Em poucos ramos de engenharia, a matemática é tão útil 
como na análise de circuitos elétricos. Teorias muito bem de¬ 
senvolvidas simplificam, em muito, esta tarefa. 

O problema consiste basicamente em reconhecer os com¬ 
ponentes do circuito, montar, de forma semi-automática, um 
sistema de equações e resolvê-lo. 

Faremos uma exposição da análise de circuitos resistivos 
lineares. Neste caso, recaímos na resolução de um sistema de 
equações lineares, o que é muito simples de ser feito com uma 
calculadora avançada como a HP-41. 

Assumiremos que o leitor tenha uma familiaridade míni¬ 
ma com circuitos elétricos. 

Um circuito elétrico é constituído de nós e ramos. Um nó 
deve ser escolhido como referência. Esta escolha é, em prin¬ 
cípio, arbitrária, mas é conveniente escolher o ''terra" como 
nó de referência. Depois disso todos os nós são numerados 
("terra" é 0). A tensão de cada nó, em relação ao nó de refe¬ 
rência, é chamada de tensão nodal, e ela é determinada. 

Num primeiro exemplo chegaremos lentamente ao siste¬ 
ma de equações na sua forma matricial mais prática. 

Na análise nodal não é comum usar-se os valores das re¬ 
sistências R, mas seu inverso G = 1/R, chamado de condu- 
tância. Como V = RI, temos I = GV. Essa relação será 
usada mais adiante. 

A análise nodal parte da aplicação da primeira lei de Kir- 
choff aos nós que não são de referência do circuito. A primei¬ 
ra lei de Kirchoff diz que a somatória das correntes que che¬ 
gam e saem em um nó é zero (isso quer dizer que em um nó 
não há acúmulo ou drenagem de carga). 

Consideremos o i-ésimo nó não de referência de uma 
rede, contendo apenas resistores e geradores independentes 
(figura 1 ). 



Na aplicação da primeira lei de Kirchoff temos (conside¬ 
rando positivas as correntes cujo sentido de referência sai do 
nó): 

Íl J 2 - * - Jk Í 5 I *52 = ^ 

onde j 1# j 2 , . . . j k são as correntes de ramo facilmente calcu¬ 
ladas. 

j, = G,V, = G, (e, - e,) 
j 2 = G 2 V 2 — G 2 (e 2 — ej) 

n 

n 

n 

j k = G k V k = G k (e k — ej) 

No i — G 1 e 1 — G 2 e 2 + (G 1 + G 2 + . . . G k ) ©j + . . . — 

G k e k = >51 “ *52 

Vamos ver um circuito completo (figura 2): 
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Figura 2 
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O nó 0 é o nó de referência; e u e 2 e e 3 são as tensões no- 
dais dos respectivos nós. As orientações das correntes de ra¬ 
mos foram tomadas em sentidos arbitrários e, como você verá 
mais adiante, são totalmente dispensáveis. 

Aplicando a primeira lei de Kirchoff nos nós 1 , 2 e 3, já 
substituindo as correntes de ramo pela respectiva condutân- 
cia, vezes a diferença de potencial, temos: 
nó 1 : (G 1 + G 3 4- G 4 ) e 1 — G 4 e 2 — G 3 e 3 = i 51 + i^ 
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nó 2: — G 4 e 1 - 1 - (G 4 + G 5 + G 6 ) e 2 — G 5 e 3 = 0 

nó 3: G^j e 1 G 5 e 2 + (G 2 + G 3 + G 5 ) e 3 = Í 52 Í 53 
















Escrevendo o mesmo sistema de equações em notação 
matricial, temos: 


— “ 

• — 


- — 

G, + G 3 + G 4 — G 4 




G, + G 3 + G 4 - G 4 - G 3 

e i 


*51 + *53 

— g 4 g 4 + g & + g 6 — G s 

e 2 

= 

0 

- g 3 - ô b g 2 + g 3 + G 6 

e 3 


“*52 "Í 53 

_ 

„ _ 


_ _ 


Essa equação é da forma geral 

G„.^= Z 


ondeG n = matriz das condutâncias nodais 
e = vetor das tensões nodais (incógnitas). 

T^ n = vetor das fontes de correntes equivalentes. 

Todo o problema consiste então em obter a matriz G n eo 
vetor i sn . A regra para se obter diretamente a matriz G n é 
muito prática. 

No elemento (i,i) é colocada a soma de todas as condu- 
táncias que se ligam ao nó i da rede. No circuito anterior repa¬ 
re que ao nó 1 estão ligadas as condutâncias G v G 3 , e G 4 , 
logo o elemento (i,i) da matriz tem que ser G 1 + G 3 + G 4 . 

No elemento (i,j) com i # j, é colocado o negativo da 
soma das condutâncias que ligam diretamente o nó i ao nó j. 
No circuito estudado, entre os nós 1 e 2 há a condutância G 4 , 
assim os elementos ( 1 , 2 ) e ( 2 , 1 ), (repare que a matriz é simé¬ 
trica) são -G 4 . 

Montar o vetor "í^, é bem fácil. Sua i-ésima linha é dada 
pela soma das correntes de fontes que chegam ao nó. Sinal 
positivo é dado à corrente que entra no nó e sinal negativo à 
corrente que sai. 

No circuito anterior, no nó 1 entram as correntes de fonte 
•si e *s3 e , 0 9° a P r ‘ m ei r a linha é i sl + i^. Já no nó não entra 
nenhuma corrente de fonte e do nó 3 saem as correntes i^ e 
igg. Logo a terceira linha é -i^ _i^. 

Veremos agora um exemplo numérico. Vamos mostrar 
manualmente as matrizes e utilizar o programa MATRIX, do 
Math Pac, para resolver o sistema de equações associado. 

No circuito da figura 3, os valores dados são as condu¬ 
tâncias. 




Assim, 0 sistema de equações fica: 





— 7- 



-12 

-2 0 


e ! 


-10 

-2 

10 -3 


e 2 

= 

0 

0 

-3 11 


«3 


10 







Usemos agora 0 programa MATRIX 


XEQ 

MATRIX 


ORDER = ? 

3 

R/S 

A 1,1 = ? 

12 

R/S 

A 1,2 = ? 

— 2 

R/S 

A 1,3 = ? 

0 

R/S 

A 2,1 = ? 

-2 

R/S 

A 2,2 = ? 

10 

R/S 

A 2,3 = ? 

-3 

R/S 

A 3,1 = ? 

0 

R/S 

A 3,2 = ? 

-3 

R/S 

A 3,3 = ? 

11 

R/S 

XEQ 

SIMEQ 


BI = ? 

- 10 

R/S 

B2 = ? 

0 

R/S 

B3 = ? 

R/S« 

10 

R/S 

R/S 

XI = -0,8134 

R/S 

(e,) 


x2 = 0,1199 

R/S 

(e 2 ) 


x3 = 0,9418 

<e 3 > 



Nos números seguintes discutiremos a análise de circui¬ 
tos mais complicados e faremos com que, dado o circuito, a 
calculadora já monte a matriz de condutâncias nodais e o ve¬ 
tor de correntes de fontes. 

Bibliografia: Orsini, L. Q. A Análise Noda! e suas variantes, 1984. 


MICROHOBBY 53 


























LIVROS 


Manual do 


Microcomputador 

Z80 



A finalidade do livro é forne¬ 
cer aos leitores toda a informação 
a respeito do Z-80. Para isto, Bar- 
den Jr. dividiu seu texto em se¬ 
ções que ilustram bem as caracte¬ 
rísticas, arquitetura, entre outros 
pontos do famoso microprocessa¬ 
dor. 

Conforme foi ressaltado no 
prefácio, o autor tem como obje¬ 
tivos básicos “apresentar ao leitor 
o hardware, examinar os aspectos 
quase esmagadores (em numero 
de instruções) do software do 
Z-80 e descrever sistemas de mi¬ 
crocomputadores construídos em 
torno do mesmo” 

O autor apresenta desta for¬ 


ma, um potente e requisitado mi¬ 
crocomputador, colocando-o in¬ 
clusive, como substituto do 
8080A e referindo-se a ele como 
“o estado da técnica”. Pensando 
assim, William Barden pretende 
principalmente, que “o leitor ti¬ 
re grande proveito da leitura des¬ 
te livro e que o Z-80 solucione al¬ 
guns dos problemas de imple¬ 
mentação de hardware e de soft¬ 
ware”. 

Com cerca de 370 páginas, o 
“Manual do microcomputador 
Z-80” é dividido em seções — três 
no total — cujos assuntos especí¬ 
ficos são apresentados em capítu¬ 
los. A primeira parte aborda te¬ 


mas como arquitetura do Z-80, 
sinais de interface e sincroniza¬ 
ção, modalidades de endereça¬ 
mento, conjunto de instruções, 
etc. A segunda seção fala a res¬ 
peito do montador do Z-80, movi¬ 
mentação de dados, operações ló¬ 
gicas e aritméticas, entre outros 
temas. E a última seção apresen¬ 
ta outros sistemas de microcom¬ 
putadores Z-80, sendo seguida 
dos apêndices que abordam as¬ 
suntos sobre as especificações elé¬ 
tricas do Z-80, comparando as 
instruções do 8080 e do Z-80 e 
apresenta códigos de caracteres 
ASCII e uma lista dos fabricantes 
norte-americanos do mesmo. 
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Manutenção de 
microcomputadores 



Autor: Maurício Caruzo Reis 
Editora Petit 

O livro não pretende, segundo os 
editores, ser um manual para a elabora¬ 
ção de planejamentos de manutenção 
de microcomputadores, abordando téc¬ 
nicas preventivas e questões comerciais, 
mas sim abordar as técnicas de pesqui¬ 
sa de defeitos existentes — através de 
uma abordagem de âmbito geral — e os 
instrumentos necessários para suas apli¬ 
cações. 

Em suas 203 páginas, o livro apre¬ 
senta as técnicas ilustrando as partes 
pragmáticas através de exemplos expli¬ 
cativos. 

Dividido em 12 capítulos, Manuten 
ção de Microcomputadores aborda as¬ 
suntos como: tópicos de interesse em 
eletrônica digital, arquitetura e funciona¬ 
mento de microcomputadores, micro¬ 
processador Z-80, auto-teste, entre 
outros. A.L.A. 


Programas Usuais 
em BASIC 



Autores: Lon Poole e Mery Borchers 
Editora MacGrawHill 

Constituído de 74 programas com 
aplicações para a área financeira, Pro 
gramas usuais em BASIC , tem o objeti¬ 
vo de fornecer aos usuários de micro¬ 
computadores, programas escritos den¬ 
tro de uma série restrita de instruções de 
maneira a torná-los compatíveis com as 
diversas versões de BASIC. Para isto, 
os autores preocuparam-se em descre¬ 
ver cada programa, incluindo exemplos 
de aplicação junto com a listagem dos 
mesmos e ilustrando os dados obtidos 
durante a sua execução nos exemplos 
apresentados. 

Para possibilitar maior campo de 
aplicação, os autores incluiram outras 
opções que sugerem formas de altera¬ 
ção através de descrição, exemplos e lis¬ 
tagens parciais para cada opção extra. 
A.L.A. 


O Computador na 
Administração 
de Empresas 



Autor: Ernesto Haberkorn 
Editora: Atlas 

Quem espera encontrar neste livro 
programas complicados de computa¬ 
ção, pode desistir. Ernesto Haberkorn 
está preocupado em introduzir o leigo 
no mundo da informática e para isso 
criou um livro que poderia ser conside¬ 
rado o be-a-bá em computação. 

Trata-se dos primeiros passos que 
um leigo deve dar para se ver envolvido 
no mundo da computação. De forma 
clara e simples, o autor aborda os ter¬ 
mos que envolvem a informática de mo¬ 
do geral, apresenta as características do 
computador, sua forma de utilização na 
empresa, escritório e cotidiano do 
profissional. Explica, de forma compara¬ 
tiva, como funcionam os software, pa¬ 
ra que servem e como usá-los, dife¬ 
rencia automação e mecanização e fina¬ 
liza o livro com um estudo de sistema in¬ 
tegrado, para desmistificar o que tem si¬ 
do a razão de muitos fracassos nas em¬ 
presas: a automação de todas atividades 
administrativa de forma integrada. 

Autor de outros dois livros — In¬ 
trodução à Análise de Sistemas e Com¬ 
putador e Processamento de Dados — 
Haberkorn direciona esta obra aos prin¬ 
cipiantes e principalmente aos empresá¬ 
rios que já se conscientizaram de que a 
automação deixou de ser futuro. S.A.M. 
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HOBBYSHOP 


r 


A MICROHOBBY man¬ 
tém uma seção de classifi¬ 
cados por cidades, onde 
sua empresa pode anun¬ 
ciar a preços acessíveis e, 
atingir nossos leitores de 
toda região. Este é o meio 
mais barato de sua empre¬ 
sa ter uma sustentação 
publicitária junto a um pú¬ 
blico leitor específico da 
área de Micros. 


Em anúncios padronizados 
em box de 8,5 x 3,5 cm, o 
leitor encontrará ofertas 
de serviços, produtos, 
software, hardware perifé¬ 
ricos e outros itens, lista¬ 
dos por cidades. 


Espaço adequado para: 
Escolas, 

Lojas de produtos 
para micros. 
Manutenção de 
micros, 

Livrarias. 


Para maiores informações 
consulte-nos 

Micromega P.M.D. Ltda. 
Av. Angélica, 2318 14° and. 
Caixa Postal 54096 
CEP: 01296 
Fone: (011)255-0366 
São Paulo - SP. 


Lig-4 

& 

Jogo da Memória 

Maurício de Albuquerque e Silva 


Lig-4 


Jogo da Memória 


O programa Lig-4 é uma nova 
adaptação para o TK do jogo tam¬ 
bém conhecido como Seqüência 4, 4 
Numa Fila, etc. É jogado por 2 pes¬ 
soas e o objetivo é conseguir uma se¬ 
qüência, em qualquer direção, de 4 pe¬ 
ças. Na sua vez, o jogador deverá digi¬ 
tar a letra correspondente à coluna on¬ 
de ele quer colocar sua peça. A peça 
será colocada na primeira disponível 
de baixo para cima. O próprio TK-82, 
à cada rodada, verifica se há um ven¬ 
cedor. 

Possíveis alterações: 


Linha 145 


Código do caractere do jogador 1 
LetX = 128-120 * (Q = 1) 

T 

Código do caractere do jogador 2 


r _ _ Linha 250 __ 

FAST — totalmente opcional; 
^apenas dá mais dinamismo ao jogo. y 


^ ~UG-4 

Memória ocupada = 2319 bytes 
Soma Sintática = 9211 
v Nível = 1 _ 


MEMÓRIA 

Memória ocupada = 3157 bytes 
Soma Sintática = 46912 
Nível = 1 


Este outro programa, Jogo da 
Memória, é uma versão do conhecido 
jogo, cujo objetivo é achar o maior 
número de pares possível. Ao ser ro¬ 
dado, o programa entra por pouco 
tempo em modo FAST para criação do 
painel e embaralhamento das peças. O 
computador então pedirá o número de 
jogadores. Na sua vez, o jogador deve¬ 
rá entrar com a posição das 2 peças 
que ele quer que sejam descobertas. 
A posição da peça é dada por uma 
string formada, na ordem, pelo núme¬ 
ro da linha e pela letra da coluna. 
Se formar um par, ganhará um ponto 
e jogará outra vez; caso contrário, pas¬ 
sará a vez ao próximo. Para terminar 
a partida antes dos 49 pares serem 
achados basta interromper o programa 
e digitar GOTO 630. 

Possíveis alterações: 


Linha 50 

Contém os 49 pares usados no jogo. 
Você não deve usar pares com 
os caracteres CHR$ 0 e CHR$ 128. 


Linhas 160 e 180 

Contêm o número máximo 
de jogadores. 


-\ 


J 


Linha 335 

Indica o tempo que as peças 
escolhidas podem ser vistas antes de 
serem cobertas. 


V 






































©ÜRE1M PROGRRhfl LIG-4 
©SSEM MfiuRICIO RL5UQUERSUE E 
SILUfi 

10 LET U =PEEK 16396+2S6+PEEK 1 

S397+1 
20 CLS 
30 PRIKT 

4.0 LET P$ = “ +-+-+-+-+-+-+-+-+ 

+-+-+-+-+-+ 


50 LET = “ IIIIXIIII 
I I I I I I 

60 FOR N=1 TO 9 
70 PRINT 
60 NEXT N 
90 PRINT P$ 

100 FOR N = 1 TO 14- 

11© print trb 2íN;chr$ K37+N) ; 

120 NEXT N 

125 LET J=0 

130 LET 0=1 

14-0 LET P =U +594- 

14-5 LET X = 123-120í (0=1) 

150 PRXNT RT 0.2;"ÜOGRDOR ";Q;" 

SUR UEZ DE JOGRR“ 

160 LET 5$=INKEY$ 

1^0 IF S$<”R" OR S $ > " N ** THEN GO 
T O 160 

J®® LET P=P^t(CCDE S$-37) 

III Íet ?Ip-Ü K p THEN GOTO 230 

210 GOTO 190 

230 IF P<U THEN GOTO 14-0 
24.0 POKE P,X 
245 LET 0=0+1 
250 FRST 

b ET Xí = "323334-01" 

280 FOR M=1 TO 4- 
285 LET S=0 

^290 LET Z = UAL X$( (2íM-l) TO C2í( 

300 GOSUB 1000 
310 LET Z = -Z 
320 GOSUB 1000 


330 XF S=3 THEN GOTO 4-90 
340 NEXT M 
350 SLOU 

380 IF 0=125 THEN GOTO 400 
370 LET 0=1*(0=2)+2+(0=1) 

360 GOTO 140 

400 PRINT RT 0.0.;" PRRTI 

DR EMPRTRDR 

410 PRINT RT 21.1.; "TECLE <N/L> 
PflRR OUTRR PRRTIÒR" 

420 IF INKEYÍOCHRS 113 THEN GO 
TO 420 
430 RUN 
490 SLOU 


500 PRINT RT 0.0:" O OOGRDOR 
";Q;“ E O UENCEDOR 
510 GOTO 410 
1000 LET T=P+2*Z 
1010 GOSUB 2000 
1020 RETURN 
2000 FOR N = 1 TO 3 

2010 IF PEEK T < >X THEN RETURN 

2020 LET 5=5+1 

2030 LET T=T+2*Z 

2040 NEXT N 

2050 RETURN 

2060 SRUE "LIG-0" 

2070 RUN 


OBREM PROGRRMR OOGO DR MEMORI 
R 

©SSREH MAURÍCIO ALBUQUERQUE E 
SILUR 

10 CLS 
15 LET U=0 

20 LET P=PEEK 16396+256íPEEK 1 
6397+1 

25 DIM Y(2) 


30 DIM XÍ2) 

35 FRST 
40 RRND 

50 LET X$ = " RABBCCDDEEFFGGHHII 
UOKKLLMMNNQÜPPOQRRSSTTUUUUUUXXYY 
ZZ001i22334.4S566773899££$$?7 < < > > 

-— + + **/_•*; ; . . ( ( " 

60 DIM Y$ (7 ,14) 

70 FOR N=1 TO 7 

75 PRINT RT 2*N,0;CHRÍ (28+N) 
80 FOR M = 1 TO 14 
90 LET B=LEN XS-2 
100 LET S=INT (RND*B+2> 

110 LET Y$CN,M)=X$CS) 

120 LET X*=X$C TO CS-I))+X$CCS+ 
1) TO ) 

130 PRINT RT 2*N,2*H;"S" 

135 IF N=7 THEN PRINT RT 0,2*M; 
CHR $ (37+M) 

140 NEXT M 
150 NEXT N 

160 PRINT RT 16,1;"QUANTOS UAO 
OOGRR ? CMÁXIMO=6) " 

165 SLOU 

17© LET A$=INKEY$ 

130 IF A$<"2" OR Rí >”6" THEN GO 
TO 170 

190 LET N=UAL A$ 

195 DIM S(N) 

200 FOR G=1 TO N 
210 LET S CG) =0 
220 NEXT G 
230 LET 0=1 

240 PRINT RT 16,0; " JOGADOR ” 
O;": SUR UEZ DE JOGAR 
245 DIM C4V2) 

250 FOR D=1 TO 2 
255 INPUT B$ 

260 IF LEN B$<>2 THEN GOTO 255 
265 IF BSC1)>“9" THEN GOTO 255 
270 LET XCD)=CODE B$tl)-26 
275 IF BS(2)<"R" THEN GOTO 255 
230 LET Y(D)=CODE B*C2)-37 
285 IF PEEK CP+SS*XCD)+2*YCD)) * 
>12S THEN GOTO 255 
290 PRINT RT 2*XCD), 2*Y(D);Y$(> 
(D) ,Y CD) ) 

300 LET Ct CD) =Yí CX CD) , Y CD) )• 

305 NEXT D 

310 IF C*C1)=C*C2) THEN GOTO 50 

0 

315 PRINT RT 18,10;" ERROU 

320 LET J=1 

325 LET 0=0+1 

330 IF 0>N THEN LET 0=1 

335 FOR H = 1 TO 75 

340 NEXT H 

345 PRINT RT 2*XC1),2*Yí1);CHR£ 
C128*0) 

350 PRINT RT 2*X C2) ,2*Y <2) ; CMRí 
(128*0) 

375 PRINT RT 18,10;" 

380 GOTO 240 

500 PRINT RT 18,10;" RCERTOU " 

510 LET SCO) =S CO) +1 

515 LET 0=0 

520 LET U=U+1 

530 IF W=49 THEN GOTO 600 

540 GOTO 335 

600 PRINT RT 20,7;"FINAL DE POR 
T IDA" 

610 FOR H = 1 TO 75 
620 NEXT H 
630 CLS 

640 PRINT RT 2,7; "RESULTADO FIM 
AL" 

650 FOR H =1 TO N 

660 PRINT RT 3+H,0;"OOGRDOR ",H 
"JSÍH);" PAR";"ES" AND (SCH) 

> 1) 

670 NEXT H 

680 PRINT AT 5+N,l; "TECLE <N/L 
PARR OUTRA PARTIDA" 

690 IF INKEYtoCHR* 118 THEN GO 
TO 690 
700 RUN 
710 SRUE "Oiffl" 

720 RUN 
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A Torre de Vogei 
no TK 2000 


O quebra-cabeça "A Torre de Vo¬ 
gei", proposto na revista 15, teve uma 
resposta publicada na Microhobby n? 18. 
Entretanto, logo após termos escolhido 
a melhor resposta, surgiu na redação 
uma carta contendo a solução para o 
TK 2000. Em virtude de nunca termos 
recebido soluções para Quebra-Cabeças 
para o TK 2000, resolvemos publicar 
também esta solução, enviada por Al¬ 
berto Alves da Motta, de São Paulo. 

A solução 

"Procurei resolver o quebra-cabeça 
'A Torre de Vogei' e montei dois pro¬ 
gramas, um deles bastante simples, com 
apenas 8 linhas, que, porém, levou 
aproximadamente 14,33 segundos para 
fornecer os resultados com a precisão 
que desejei. 

Descontente com a demora, fiz ou¬ 
tro programa com 28 linhas e o apare¬ 
lho forneceu os mesmos resultados, 
com a precisão desejada, porém mais rá¬ 
pido e terminou os cálculos em 3,44 se¬ 
gundos. 

O programa baseou-se na seqüên- 
cia de cálculos da equação que fornece 
o comprimento da escada em relação ao 
ângulo que ela faz om o chão (N): 


sen N cos N 


Sendo x o comprimento da escada 
e N o ângulo da escada com o chão." 


Programa I 


5 REH TORRE DE VOGEL 
10 X = 1000000 
20 FOR I = 1 TO 89 STEP 
0.01 

30 R = 180 / 3.141592 
40 Xü) = 2 / SIN (I / R 
) + 8 / COS 
(I / R) 

50 IF X(i) > X GOTO 80 
60 X = Xü): NEXT 
70 PRINT "ALTURA DA TORR 
E (ESCADA)="; 

X: PRINT 

80 PRINT "ANGULO DE ENTR 
ADA DA ESCADA 
=";I - 0.01 


Programa II 


5 REH TORRE DE WGEL 
10 X = 1000000 
20 FOR I = 0.01 T0 89.99 
STEP 10 

30 R = 180 / 3.141592 


40 X(i) = 2 / SIN (I / R 
) + 8 / COS 
(I / R) 

50 IF X(i) > X GOTO 190 
60 X = X(l): NEXT 
70 PRINT "ALTURA=";X: PR 
INT 

80 PRINT "ANGULO ENTRADA 
=";H - 0.01: END 
190 X = X(l) 

200 FOR J = I T0 0.01 ST 
EP - 2 

210 Xü) = 2 / SIN (J / 
R) + 8 / COS 
U / R) 

220 IF Xü) > X G0T0 300 

230 X = Xü): NEXT 
300 X = Xü) 

310 FOR X = J T0 89.99 S 
TEP 0.5 

320 Xü) = 2 / SIN <K / 
R) + 8 / COS 
(K / R> 

330 IF Xü) > X G0T0 400 

340 X = Xü): NEXT 
400 X = Xü) 

410 FOR L = X T0 0.01 ST 
EP - 0.1 

420 Xü) = 2 / SIN (L / 
R) + 8 / COS 
(L / R) 

430 IF Xü) > X G0T0 500 

440 X = Xü): NEXT 
500 X = Xü) 

510 FOR h = L T0 89.99 S 
TEP 0.01 

520 Xü) = 2 / SIN <H / 
R> + 8 / COS 
(M / R) 

530 IF Xü) > X G0T0 80 
540 X = Xü): NEXT 


Resultados 

Em ambos os programas, obtive: 
altura: x = 13,2073221 = 13,20 m 
ângulo de entrada: N = 32,21° 
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Onyx Junior. Uma verdadeim batalha de emoções. 


Prepare-se. Dentro de sua própria casa, você vai 
perseguir e abater mísseis e tanques de guerra. Seus jatos 
escaparão por milímetros dos potentes canhões inimigos , 
planetas explodirão em chamas. Você vai conhecer, nas 
cores mais dramáticas, na maior nitidez, as sensações de 
uma verdadeira batalha. 

Entregue-se. Você simplesmente não vai resistir 
a fantástica aventura que é ter um Onyx Junior. 


0 mais moderno, o mais completo videogame 
que você já viu (o único neste sistema que tem pau se), com 
mais de 300jogos diferentes: o Onyx Junior usa todos os 
cartuchos da Linha Atari® 

Apresente-se. A mais alta patente em videogame 
espera você para um encontro inesquecível. 

/MICRODIGIML 


® ATARI INC ALLRIGHTS RESERVED 










De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple®. 

E, como todo business Computer 


Apresentamos o 

TK 20001 
Be rada o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preco de lançamento* (128 K): 

Cr$ 1.949.850 

/WCRODIGITAL 

computadores pessoais 



Sujeito a alteração sem prévio aviso. 
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CERTIFICADO ESPECIAL DE RESERVA 

VÁLIDO ATÉ 30.06.85 


□ ALTERAÇÃO DE ENDEREÇO 
_BCO_ 


NOME _ 

ENDEREÇO 
CIDADE _ 
FONE_ 



AUTORIZO PELO PRESENTE MINHA □ ASSINATURA INICIAL □ RENOVAÇÃO 
DA REVISTA MICROHOBBY 112 EDIÇÕES). 

ANEXO REMETO □ VALE POSTAL N?_□ CHEQUE Ní_ 

NOMINAL À MICROMEGA P.M.D. LTDA. NO VALOR DE CRS_ 


PREÇOS: ASSINATURA: Cr$ 60.000 
RENOVAÇÃO: Cr$ 50.000 



Em caso de renovação de assinatura 
colar neste campo a etiqueta 
de endereçamento atual. 
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cada vez melhor! 


A MICROHOBBY é uma revista altamente didática, destinada a programadores de vários níveis, do principiante 
ao hobbista mais ousado, que se aventure a programar em linguagem de máquina. 

Receba em sua casa a revista que contém inúmeros programas, informações, dicas e tudo o que você precisa 
saber sobre microcomputadores e programação. 

MICROHOBBY a revista que põe você em dia com a informática! 


promoção especial para 
novos assinantes e renovações 


Fazendo sua assinatura agora você além de manter o preço inalterado durante 12 edições, paga apenas 
10 edições CrS 60.000. 

Renovando sua assinatura além da vantagem já citada você ainda terá um desconto de CrS 10.000, ou seja 
sua assinatura sairá por apenas CrS 50.000. 

Assinando ou renovando agora você só tem a ganhar. 



